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_~ PREFACE 





This publication describes the program logic of the two indexed sequential access 
methods: QISAM (queued indexed sequential access method) and BISAM (basic indexed 
sequential access method). ~ 


g 
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The manual is divided into seven sections: 4 
Yd 
“Introduction” is an overview of.indexed sequential access method organization and an \ 
overall description of ISAM operations. , 
i, 


‘‘Method of Operation’’ comprises four parts: \ 
‘ ws, a 


1. ISAM common open, common close, and validation modules—a discussion of the 
common processing operations for QISAM load, QISAM scan, and BISAM. n 4 


-—+th 


2. Queued indexed sequential access method, load mode—a discussion of the operations 
and routines unique to creating data sets with QISAM. 


3. Queued indexed sequential access method, scan mode—a discussion of the operations - 
and routines involved in retrieving and updating records sequentially using QISAM. 
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4. Basic indexed sequential access method—a discussion of the techniques and | 


( operations used in the direct storage and retrieval of records in an indexed sequential ~ 
data set. ; 
‘Program Organization” contains flowcharts of individual ISAM routines. 

“Directory” contains a table of ISAM modules, by type, and module selection tables for 
_~ OQISAM load mode, open executors, and close executors. ~ 
‘‘Data Areas” contains descriptions of data management control blocks:and work areas ~ y 
used by ISAM. - 
“Diagnostic Aids’’ summarizes appendage, asynchronous, and exception codes set and 
used by ISAM routines. . 3 
“Appendixes” supplement this manual and program listings with descriptions of ISAM data - : 
set organization (Appendix A) and ISAM channel programs (Appendix B). S 


Prerequisite Knowledge 


Before reading this book, you should understand the material presented in: 


e MVS/Extended Architecture Data Management Services, GC26-4013, under ‘Processing an 
Indexed Sequential Data Set” 


e MVS/Extended Architecture Data Management Macro Instructions, GC26-4014 
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co The following publications contain information that you may need in conjunction with 
reading this book: 
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INTRODUCTION 


The indexed sequential access method (ISAM) is a data management technique used for 
storing indexed sequential data sets on direct-access devices, or for retrieving those data 
sets. 


ISAM is divided into two sections, queued ISAM and basic ISAM. Queued ISAM 
- (QISAM) is used only for sequential operations and basic ISAM (BISAM) is used for 
random operations. 


A detailed description of the structure of an indexed sequential data set is provided in 
Appendix A of this manual. Detailed information on how to create and process an 
indexed sequential data set is in Data Management Services. 


ISAM routines are part of MVS/Extended Architecture Data Facility Product (MVS/XA DFP). 
They are grouped into modules that are placed in the link pack library (LPALIB) during system 
generation. Wherever possible, all processing programs use the same copy of a module. The 
nucleus initialization program then loads the modules into the SYS1.LPALIB area of storage. 


QISAM has routines for two modes: load mode routines, which are used to create an 
indexed sequential data set and to add records to the end of a data set; and scan mode 
routines, which are used to retrieve and update records from a previously created data 
set. 


BISAM routines provide direct storage and retrieval of any logical record by its record 
key. The BISAM routines also permit records to be updated in place. The BISAM 
Write-Key-New (WRITE KN) routine provides the user with a means of inserting new 
records into an indexed sequential data set. 


Routines within QISAM load mode, QISAM scan mode, and BISAM are divided into 
three phases of execution: the open phase, the processing phase, and the close phase. 


Open Phase 


When a data control block (DCB) is opened to process an indexed sequential set, the open 
routine gives control to ISAM open executors. (The open routine is described in 
Open/Close/EOV Logic. ) 


The ISAM open executors are modules that perform the initial ISAM processing. Open 
processing is performed in two stages: the first or common open stage, which is executed for 
both QISAM and BISAM; and the second or mode-oriented stage, which is executed by 
separate open modules for QISAM load mode, QISAM scan mode, and BISAM. 


The common open executors receive control from the open routine of O/C/EOV when 
it is determined that an indexed sequential access method is to be used. The same 
executors are used for both QISAM and BISAM. These common open executors 
determine which mode of ISAM has been specified in the processing program. The 
common open executors begin the building of control! blocks and control lists for 
subsequent use by the processing and closing phases. When these operations are 
completed, the common open executors transfer control to the mode-oriented, 


second-stage open executors. mag 


The common open executors are described in detail in the first part of the Method of 


Operation section of this manual; the mode-oriented executors are discussed in their 
respective QISAM and BISAM parts. 
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During the processing phase of indexed sequential access method operations, several 
types of routines are invoked: these include input/output routines (in some cases, both 
privileged and nonprivileged) and their related channel programs, channel program 
appendage routines, asynchronous routines, and buffer management routines. Control 
blocks, work areas, and queues are used by the processing phase routines and by the 
corresponding channel programs. 


When an input or output macro instruction is encountered in the processing program, 
ISAM routines construct the needed channel programs for processing the data and 
request the I/O supervisor to schedule those channel programs for execution. If an error 
occurs during the execution of the channel program, the ISAM appendage. and 
asynchronous routines inform the processing program of the error. In the processing 
phase of ISAM, buffers are allocated, queued, and scheduled (buffer management); 
indications of whether or not the channel programs have been executed successfully are 
given by both the buffer management and appendage routines. 


| Processing Routines 


The ISAM processing routines select and complete the channel programs that store, 

process, and retrieve records from an indexed sequential data set. These routines perform 
various operations and construct different channel programs depending on the 

characteristics of the data to be processed, the type of macro instruction issued by the 

processing (user) program, and the indexed sequential access method (or mode) being 

used. 


For QISAM load mode, the primary processing routine is the put routine. The load mode put —_ 
routine is used in creating or resuming the creation (see ‘““Resume Load’’) of an indexed ; 
sequential data set. 


In QISAM scan mode, five macro instruction routines are used for data retrieval and 
updating; the scan mode routines are described under “Scan Mode Processing Phase 
Operations” in the “Method of Operation” section. 


The BISAM processing routines consist of several variations of the basic Read and Write 
routines. In BISAM, both nonprivileged and privileged routines are used to facilitate 
channel program execution. : 


The QISAM load, QISAM scan, and BISAM processing routines are described fully in 
their respective sections of this manual. 


e 


Appendage Routines 
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The appendage routines are entered from the input/output supervisor when a channel program 
is to be started or when a channel program ends. The appendage routine determines if 
additional processing is necessary before an input/output operation has started or after it has 
been completed. For example, more than one channel program may be needed to satisfy 
completely a specific input or output request from the processing program. In such a case, the 
channel appendage would keep track of the channel programs needed and assist in initializing 


and scheduling these channel programs sequentially. Appendages may also schedule . I 


asynchronous routines to handle the additional processing of an I/O request. (Appendages and ae 
asynchronous routines are described in System Programming Library: Data Management.) 
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Rotational Position Sensing Start I/O Appendages 


The rotational position sensing (RPS) start I/O (SIO) appendage routines decrease 
channel time by disconnecting the channel from RPS devices whenever possible. This is 
done by inserting channel command word (CCW) slots in the various ISAM channel 
programs. 


When an ISAM data set is being used with an RPS device, the RPS start I/O appendages 
modify the channel command word slots dynamically to either a NOP, set sector, read sector, 
or a TIC, depending on the device type and the channel program. (See Figure 1.) 


Three RPS SIO appendages are used: one each for QISAM scan and load modes, and 
one for BISAM. These SIO appendages convert non-RPS channel programs to RPS 
channel programs and vice versa, as necessary. 


Conversion of a non-RPS channel program to an RPS channel program involves: 
e Conversion of the CCW slots from TICs or NOPs to read or set sectors 


e Possibly modifying a CCW’s command-chaining flag so that the RPS CCWs are 
executed 


¢ Interposing an RPS channel program prefix when the channel program starts with a 
search ID of five bytes 


e Setting up sector values where necessary 


Note: The rotational position sensing (RPS) devices referred to in this manual are the IBM 
3330, 3330 Model 11, 3340, 3344, 3350, and 2305-2 Direct-Access Storage Devices. 


{OS appendage 
entry 

















Set up 
channel program 
for RPS 


Update sector value 


Set up non- RPS 
channel program 





Figure 1. SIO Appendage for ISAM RPS 


Asynchronous Routines 


Asynchronous routines are used in QISAM scan mode and in BISAM to perform any 
additional processing of an I/O request required when a channel program ends. 


Complete processing of an I/O request may require several channel programs. For 
BISAM, the asynchronous routines set up and schedule the requests as required. Also, 
when I/O request processing is complete, whether satisfactorily or in error, the ee 
completion must be posted. These routines do the posting. For QISAM scan mode, the 
asynchronous routine schedules the channel programs when the next record is to be read 
or written on another device. 


The appendage routines of QISAM scan mode and BISAM select and schedule the 
appropriate asynchronous routines. 
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Further description of the scan mode asynchronous routines can be found in the 
discussion of ‘““Appendages”’ under “‘Scan Mode Open Phase Operations’ under —_ 
“Method of Operation.” For more detail about the BISAM asynchronous routines, see 
‘Appendage and Asynchronous Routines” under ‘““BISAM Processing Phase Operations” 
also in the ‘““Method of Operation”’ section. 


—— 


Buffer handling or buffer management routines are provided in both modes of QISAM 
and, optionally, in BISAM. 


In QISAM load mode, the put routine has two subsidiary buffer handling routines: the 
beginning-of-buffer (BOB) routine and the end-of-buffer (EOB) routine. The BOB and EOB 
routines perform both the put move mode and put locate mode processing. 


In move mode, the put routine and its buffer handling routines move an output record from 
the user work area or input area to an output buffer. 


In locate mode, the put routine and its subsidiary routines give the address of an output buffer 
area to the user; the user must move the record to the buffer. 


In QISAM scan mode, five buffer queues are used to control input/output operations. The 
queuing of buffers is handled primarily by the get routine and its subsidiary routines—the 
scheduling routine and the end-of-buffer routine. 


In scan mode, a copy of channel program 22 (CP 22) is allocated to each buffer. The 

buffers are manipulated among the queues and scheduled for I/O operations according 

tothe macro instructions issued in the processing program. Refer to the discussion of 

“Buffer Control Techniques” under ‘‘Scan Mode Processing Phase Operations”’ in the 

‘““Method of Operation” section for a description of the buffer queues. io” 


Dynamic buffering may be used in BISAM to allow the queuing of multiple read \ 
requests. A buffer is automatically acquired from a buffer pool and assigned to the 
request just before data transfer begins. The buffer is returned automatically to the 
buffer pool when its contents are written, or it is returned under programmer control 
with the free dynamic buffer (FREEDBUF) macro instruction. Dynamic buffering 
requires relatively fewer buffers since the read requests waiting in the queue do not 
monopolize buffers. 


When a DCB for an ISAM data set is closed, the close routine gives control to ISAM 
close executor modules which terminate processing for the particular mode of ISAM 
being used. As do the open executors, the close executors have two stages: (1) the 
mode-oriented stage (that is, the load mode, scan mode, or BISAM close executors), and 
(2) the common close stage executor. 


When invoked by the CLOSE macro instruction, the close routines first determine that 
an ISAM data set is being processed. They then examine the DCBMACRF field in the 
DCB to determine which mode of ISAM is in use and which mode-oriented close 
executor should be given control. The close executors for load mode, scan mode, and 
BISAM are described in their respective sections. 
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Data Management Keys 


ISAM open and close executors receive control in key 5. Open executors operate in 
storage protection key 5 while processing the DCB copy, constructing the DCB field 
areas, and building the DEB. 


The user’s key is assumed while constructing channel programs, IOBs, buffers, and the 
ISAM work area. ISAM privileged processing routines run in the problem program key _ 
except when updating the DCB field area, which is done in key 5. ISAM close executors 
process in the user’s key except when updating the DEB and when freeing the DCB field 
area, which is done in key 5. 


In the event of a parallel open, the next executor may be other than an ISAM executor. 
Thus, the executor must set the storage protection key to 5 prior to transferring control 
so that key 5 is established for the next executor. 





| 
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METHOD OF OPERATION 


ISAM Common Open, Common Close, and Validation 
Modules | 
There are three distinct indexed sequential access methods: QISAM load mode, QISAM , 
scan mode, and BISAM. Each comprises a group of modules. | 


In addition to the three separate groups of modules, certain ISAM modules are used for 
both QISAM and BISAM processing. In particular, the three common open executor | 
modules (IGG0192A, IGG0192B, and IGG0192C), the common close executor module ; 
(IGG0202D), and the validation open executor modules (IGG01920, IGG01922, and ; 
IGG01950) are used in both modes of QISAM and in BISAM. ; 


detail, and generally describes the validation modules which are further detailed in the 


This part of the manual describes the common open and common close executors in | 
discussion of QISAM load mode, QISAM scan mode, and BISAM. | 


The ISAM Common Open Executors ‘ 
The first stage, or common, open executors receive control from the open routine module , 
IFGO196V. This module: | 
1. Reads in the additional DSCBs for this data set Gf multivolume) } 
2. Tests first volume for a format-2 DSCB q 


3. Checks DSCBs for ascending order on the same sequence in which space was 
allocated 


4. Loads the virtual address of the first ISAM open executor and branches to it. 


| 
The common open executors, upon completion, pass control to the second stage open 

executors required to initialize the specific form of QISAM or BISAM called for by the 

processing program. ~ 


DCB Relocation to Protected Work Area 


Before control is passed to ISAM open executors, the DCB is copied to the 

OPEN/CLOSE/EOV work area to ensure the integrity of DCB vectors that may be 

changed by the user during system open or system close time. The DCB copy is updated 

by ISAM executors during open processing and is used to refresh the user’s DCB prior to 

the initiation of any I/O operation. (The user’s DCB is used for all I/O initiated during 

open, except in the validation modules, which use the DCB copy.) All I/O is completed 

and the ISAM work area, IOBs, and the DEB are updated to reflect the location of the 

user's DCB within the address space before control is returned to common open. The four 

final ISAM open executors refresh the user’s DCB from the work area copy. | 


See the “Diagnostic Aids” section for a diagram of the control block relationships among 
the WTG table, OPEN/CLOSE/EOV work area, and the DCB. 


The DCB Integrity Feature rt ae 7 


ISAM routines maintain DCB integrity by preserving pertinent DCB fields and maintaining the 
current status of these fields during processing. The DCB integrity feature is invoked for the ! 
user whenever DISP=SHR is specified. 


This feature prevents multiple tasks, when sharing the same indexed sequential data set, 
from altering the data set without updating its attributes in the DCB. This could happen 
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if one of the tasks opens the data set for write-key-new (WKN) and modifies an area in order 

to change various DCB fields. For example, adding records to the last prime-data track would (~ 
result in updating DCBLPDA and possibly DCBLIOV. Another task with concurrent access 

to the data set in QISAM scan mode would not process the added records. 


With the DCB integrity feature, any change in the DCB caused by a modification of the 
data set causes a corresponding change in all DCBs currently open for that particular 
data set. An ISAM common open module, IGG0192C, determines whether another 
ISAM data set has previously been opened, and if not, obtains space for a DCB field 
area (DCBFA) associated with each ISAM data set that is opened. The DCB field area is 
obtained (by a GETMAIN from subpool 241) by the ISAM open executor module, 
IGG0192C, when a data set is opened for the first time. 


The DCBFA contains the DCB information that can be changed while processing the 
data set and is pointed to by all DCBs opened for that data set. The DCB fields that 
require this updating are DCBLIOV, DCBLPDA, DCBNOV, DCBNOREC, 
DCBNREC, DCBRORG1, DCBRORG2, DCBRORG3, DCBST, and DCBTDC. These 
fields are shown in the “Data Areas”’ section of the book. 


During processing of a data set opened for WKN or RU, ISAM routines gain access to 
the associated DCB fields and modify them from the DCBFA. This eliminates the 
possibility of a user’s inadvertently and incorrectly modifying these fields. 


The three common open executor modules are IGG0192A, IGG0192B, and IGG0192C. 
The flow of operations among these executors and to the second stage open executors is 
depicted in Figure 2. 


Note: The second stage open executors return control to the open routine of O/C/EOV, 
which returns control to the processing program. 


Common open executor IGG0192A receives control from the open routine of O/C/EOV. The { ™ 
primary. functions of [GG0192A are: 


1. It calculates the space needed for the DEB (16 bytes are allocated for the DEB prefix, 
and 32 bytes for the basic section of the DEB). The number of extents indicated by 
the user’s data definition statements is picked up from the DSCBs (the data sets 
allocated must be online). The number of extents, plus 1, is multiplied by 16. Thus, 
each extent has 16 bytes. . 


2. It executes a GETMAIN macro instruction for the DEB. 
3. It places a pointer to the DEB in the DCB and a pointer to the DCB in the DEB. 


4. It sets the pointer to the UCB inreach extent (there may be from 1 to 16 extents per 
volume). The UCB in each extent points to the direct-access device where the data set 
(or extent) resides. 


5. It checks the devices allocated to the data set to see if these devices have the 
rotational position sensing (RPS) feature and sets a bit in DSCCW1+4 accordingly. If 
bit 0, 1, or 2 is on and if the data set is being opened for either QISAM scan mode or 
BISAM, a count of 1 is added to the module count (DEBNMSUB) in anticipation of 
loading the necessary RPS start I/O appendage. (See the description of these bits in 
Figure 3, DEBRPSID.) 


6. IGGO192A issues a DEBCHK (TYPE=ADD, AM=ISAM) macro to add the address oar 
of the DEB to the DEB table in protected storage. 


After the GETMAIN macro instruction has been performed for the DEB, DEBISAD has 
its high-order byte cleared to 0’s if no RPS devices are being used. If RPS devices are ae 
being used, bits are set as shown in Figure 3. 
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Figure 2. ISAM Open Flow of Control 


Field Bit Setting Meaning 


DEBRPSID 0 1 Prime is on an RPS device 
a | 1 Index is on an RPS device 
2 l Overflow is on an RPS device 
3 l An SIO appendage has been loaded 


(set by IGGO192K) 
Figure 3. RPS Identification Field in the Data Extent Block 


Upon completion, IGG0192A transfers control to the common open executor module 
IGG0192B. The functions of IGGO192B are: 





1. IGGO192B uses the DCBBUFNO and DCBBUFL fields (plus 8 bytes for a control 
field) to develop the buffer pool. 


2. It develops the buffer control block (BCB), using DCBBUFNO and DCBBUFL, and 
uses a GETMAIN from subpool 250 for the BCB space. 


3. It also calculates the buffer lengths (using DCBBLKSIZE) and places the calculation: 
in the DCBBUFL field (unless the user sets up his own buffers). : 


4. The number of buffers (DCBUFNO) field is checked, and if none have been 
specified, two buffers are allocated for the data set. 


5. If the computed buffer length is inadequate, IGG0192B schedules an ABEND with a 
completion code of hexadecimal 37. 
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6. IGGO192B then returns to the initialization of the DEB, initializing the extent entries 
with the address and count fields already established in the DEB. The DEB now 
contains the UCB pointer, the starting addresses of the extents (cylinder, track, and 
head), and the number of tracks per extent. 


ISAM common open executor IGGO192B passes control to common open module, 
IGGO192C. The functions of IGGO192C are: ; 


1. Sets the device type fields (DCBDEVT and DCBOVDEV). 
2. Moves the format-2 DSCB fields into the DCB. 


3. If the data set can be shared by two or more tasks (JCL parameter DISP=SHR), 
IGG0192C does the following: 


a. Obtains the local and global services locks. 


b. Searches the DCB field area (DCBFA) chain for a field area for the data set being 
opened. The pointer to the first DCBFA in the chain is located in the CVTFACHN 
field of the CVT common extension. (See the ‘‘Data Areas” section for a 
description of the DEB.) 


c. If afield area was not previously obtained, executes a GETMAIN macro 
instruction to get the necessary storage in the common services area (subpool 241) 
for the field area and adds it to the DCBFA chain. 


d. Releases the local and global services locks. 


The Validation Modules 
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Modules IGG01920, IGG01922, and IGG0O1950 are open executors used to validate and 
maintain DSCB and DCB fields for resume load, scan mode, and BISAM. An initial load 
(or reload) in load mode does not cause execution of the validation modules. 


The operations done in 1GG0O1920, IGG01922, and IGGO1950 are described in detail below. 
Thereafter, the validation modules are referred to in the load, scan, and BISAM discussions. 


Modules IGGO1920 and IGG01922 process fixed-length records and module IGGO1950 
processes variable-length records. 


The validation modules may not be executed, although they are entered if the user has 
specified that the data set may be shared by other tasks (DISP=SHR). They are not executed 
in that case, because another DCB may have already been opened for the data set and a ) 
DCBFA (DCB field area) already set up for the purpose of maintaining the DCB fields. 


Open Executor IGG01920 
Validate and reset, if necessary, the following fields in the format-2 DSCB: 


1. DS2LPRAD-—the address of the last record in the prime-data area. This address is in the 
form MBBCCHHR and is subsequently moved to the DCBLPDA field. 


2. DS2PRCTR—the number of records in the prime-data area. This count is later moved to the 
DCBNREC field. 


The validation is performed by reading the last prime data record into storage. This storage is 
in storage protection key 5 and fetch protected from subpool 229. 


Open Executor 1GG01922 
Validate and reset, if necessary, the following fields in the format-2 DSCB: 


1. DS2LOVAD-—the address of the last record in the current independent overflow area. This 
address is in the form of an MBBCCHHR address and subsequently moved to the DCBLIOV 
field. 
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2. DS2BYOVL—the number of bytes remaining on the current independent overflow track. 
This count is later moved to the DCBNBOV field. 


3. DS2RORG2-—the number of tracks remaining in the independent overflow area; 
subsequently merged into the DCBRORG? field. 


4. DS2OVRCT—the number of records in all overflow areas; later merged to DCBNOREC. 
These fields may be incorrect if the data set was previously closed improperly. 
Open Executor IGG01950 
Validate and reset, if necessary, the following fields in the format-2 DSCB: 


1. DS2LPRAD—the address of the last record in the prime-data area. This address will be in the 
form MBBCCHHR and subsequently moved to the DCBLPDA field. 


2. DS2LOVAD-—the address of the last record in the current independent overflow area. This 
address will be in the form of an MBBCCHHR address and subsequently moved to the 
DCBLIOB field. eo 


3. DS2BYOVL-the number of bytes remaining on the current independent overflow track." .- 
This count is later moved to the DCBNBOV field. 


4. DS2RORG2-—the number of tracks remaining in the independent overflow area; 
subsequently merged into the DCBRORG? field. 


5. DS2O0VRCT—the number of records in all overflow areas; merged to DCBNOREC. 


These fields may be incorrect if the data set was previously closed improperly. 


Common Close Phase Executors 


When control is passed to ISAM close a list of copied DCBs is also passed. ISAM close 
operates on the user’s DCB (rather than on the copied DCB) because there may be I/O 
in process against the user’s DCB and, in addition, the close executors may need to 
schedule buffers for output in order to complete processing by the QISAM user. 
Common close refreshes the copied DCB from the user’s DCB upon receiving control 
back from the ISAM close executor. 


See the “Diagnostic Aids” section for a diagram of the control block relationships among 
the WTG table, OPEN/CLOSE/EOV work area, and the DCB. 


The common close executor module is module IGG0202D;; its functions are as follows: 
1. Obtains storage space for the format-2 DSCB. 


2. Reads the format-2 DSCB, updates it from the DCB, and writes it back into the 
volume table of contents (VTOC). 


3. If operating with QISAM load mode, frees the storage used for the load mode work 
area and channel programs. 


4. If initial load, sets bit 2 of the DCB status byte field (DCBST). 


The flow of control through the O/C/EOV routines and the stages of ISAM close 
executors is shown in Figure 4. 


Task Close/Force Close Routine (IGG0202B): This routine disassociates the abnormally:.- 
ending task from the field areas pointed to by its DEBs through the following operations: 
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Figure 4. Flow of Control through the Close Executors 


1. If the terminating task is not the job step task, search the TCB’s DEB queue for ISAM 
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DEBs. 


2. For each shared data set DEB, decrease the ASID and total use counts in the field area 
by one and clear the field area pointer in the DEB. 


3. If the field area use count goes to zero, remove it from the field area chain and free its 
storage. , 


4. If the ASID use count goes to zero, the last ASID count is moved to replace the 
zeroed count and the field that was occupied by the last entry is cleared. 


5. When the last entry, or the ASID entry that went to zero, is the only entry in a field 
area extension, the extension’s storage is freed. 


If DEBs are not available, this routine disassociates the address space of the abnormally 
ending task from the field areas it is using through the following operations: 


1. Reference to the address space of the abnormally ending task is deleted in all field 
areas. 


2. The use counts for each field area in the chain are decreased by the number of users in 
the abnormally ending ASID referencing that field area. 


3. If the use count for a field area becomes zero, the field area storage is freed. 


In all cases, the local and global services locks are acquired prior to searching the field 
area chains. The locks are released prior to returning control to the caller of the routine. 


\ 
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Force close entry is at IGGO202B and is in storage protection key 5. A return code of 4 
is in register 15; continue force-close processing, open cannot be reinvoked for this 
DCB. 


Task close entry is at IGG0O202C and is in storage protection key 0. A return code of 0 is 
in register 15; continue termination. ; 


Queued Indexed Sequential Access Method, Load Mode 


The load mode of QISAM is used to create (or re-create) indexed sequential data sets and may 
also be used to reopen existing data sets to add records to the end of the prime-data area. 
Creating a data set is called initial loading; re-creating one is called reloading; and reopening a 
data set is called resume loading. (See Data Management Services for a user-oriented discussion 
of resume loading.) 


Because it is part of the queued access method, load mode handles all required buffering, 
blocking, and I/O activity synchronization. 


There are three groups of QISAM load mode routines: 
e The open phase 

e The processing phase 

e The close phase 


The open phase routines include executor modules that perform tasks needed to open a 
data set, initialize data areas, and prepare to load other routines for the processing phase. 
The open phase executors receive control from the open routine. The processing phase 
routines include the put routine (which receives control and is executed when a PUT 
macro instruction is issued in the user’s program), appendages, and channel programs. 
The processing phase routines perform the actual access method functions in QISAM 
load mode. The close phase routines perform functions essential to closing the indexed 
sequential data set when all processing phase operations are finished. The close phase 
routines are executor modules that receive control from the close routine. 


Load Mode Open Phase Operations 


There are two stages of ISAM open executors. The first stage executors are entered for 
all indexed sequential access methods and are the common open executors (see Figure 
2). The second stage open executors for load mode receive control from the common 
open executors. These second stage executors perform initialization operations required 
for load mode processing, whether creating, reloading, or resume loading the data set, 
with either variable or fixed-length records. 


The second-stage executor for load mode (module IGG01921) is entered for both initial 
and resume loading to provide storage for the load mode work area. ISLCOMON is the 
load mode DCB work area and contains the input/output blocks (IOBs), location tables, 
counters, and various pointers. The load mode processing modules and channel programs 
refer to and modify the ISLCOMON area. 


The IOBs, tables, and pointers in ISLCOMON are used in scheduling, controlling, 
checking the load mode processing operations, filling the buffers with records, loading... 
these records into the ISAM data set, and referring to these records and their locations in 
the various ISAM indexes. 


Besides obtaining storage for and initializing ISLCOMON, the beginning open executor 
for load mode determines if the user intends to create a new ISAM data set (initial load), 
to reload an old data set, or to reopen an existing data set. 
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Initial Load or Reload Open Operations 


For the initial load or reload of an ISAM data set, the ISAM load mode open executors 
structure, allocate space for, and format the prime-data area, the track-index area, and, if 
specified, the high-level index areas. An initial load open module (IGG0192G) also 
initializes fields in the ISLCOMON area to be used by the load mode buffering routines. 


The initial load or reload open routines of the load mode open executors also determine 
whether or not the last track of the track index for each cylinder will contain one or more 
data records, (that is, shared track). If there is to be a shared track, temporary records 
representing each track-index entry (preformat) must be written so the first data records can 
be written before the actual index entries are developed and written. Refer to the descriptions 
of modules IGG0192D and IGG0O192S in the discussion of “Load Mode Open Phase 
Organization”’ for further information on the preformatting of shared tracks. 


Resume Load Open Operations 


When opening an existing ISAM data set to add records at the end of the prime-data 
area-(resume load), the load mode open executors for resume load must ensure that the 
addressing control fields for prime, index, and overflow records are accurate and usable 
for locating the last records in each area and loading additional records into the data set. 
Control fields for buffering and record-moving logic must be initialized in accordance 
with the dimensions of the already created data set; this is also done as part of the 
resume load open operations. (Refer to ‘‘Resume Load Open Organization” for further 
details.) 


Full-Track-Index-Write Open Operations 


The full-track-index-write feature of load mode allows for accumulating and writing a full track 
of track-index entries as a group rather than singly (refer to “Appendix A. ISAM Data Set 
Organization’’). The track-index entries are accumulated in the track-index save area (TISA) 
shown under “‘Data Areas.”’ A full track of track-index entries is written into the track-index 
area of the data set when the TISA is full, when end-of-cylinder is reached, or when the data set 
is closed. 


When the user opens the DCB for load mode and specifies the full-track-index-write 
option (DCBOPTCD=U), the load mode open phase executors perform operations 
especially for the initialization of the full-track-index-write feature. These operations 
include acquiring the track-index save area, and initializing channel program 20 to write 
the track-index entries from the TISA to the direct-access storage device. 


The Final Load Mode Open Phase Operations 
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The final load mode open phase operations are performed for all load mode open 
options. The final load mode open executors: 


1. Load the needed ISAM load mode modules containing the appropriate routines, 
appendages, and channel programs. 


2. Initialize and execute channel program 19 for preformatting shared track from entries 
in Area Z of ISLCOMON when required. 


3. Initialize channel programs 20 and 21 for writing track-index and high-level index 
entries. 
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Load Mode Open Phase Organization 
Load Mode Open Executor IGG01921 


As indicated in the load mode open operations discussion, the first load mode open 
executor, module IGGO1921, is entered for both initial and resume load. The operations 
for this module are outlined below. 


1. 


Obtains storage for the load mode work area (ISLCOMON) and sets the work area 
pointers. 


. Fills in the load mode input/output blocks (IOBs) in ISLCOMON. 


. Determines from the DISP parameter the user’s intent to reload the data set; resets 
.the DCB status bits if necessary, and reinitializes the data set in accordance with DCB 


parameters supplied in the DD statement. 


. Calculates and sets the DCBHIRPD field (highest record that can be written on a 


prime data track) and the DCBHIROV field (highest record of an overflow data 
track). 


. Determines if track capacity of the independent overflow device is sufficient to 


contain the maximum length record for an overflow chain (the longest possible record 
in an overflow chain). 


. Checks the data control block for contradictory specifications; issues an ABEND 


macro instruction if RKP + key length is greater than LRECL. 


Upon completion of module IGG01921, the selection of modules to continue load mode 
open operations depends on whether initial or resume loading is to take place: this is 
indicated by Figure 5, which shows the flow of control through the load open executors. 
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Initial Load Organization 


If an indexed sequential data set is to be created, the first load mode open executor 


(I1GG01921) passes control to module IGGO192D. 
Load Executor IGG0192D 


IGG0192D calculates several control fields needed in load mode processing. Listed 
below are some of the primary functions performed by module IGGO192D in structuring 
the prime-data area and calculating various DCB fields needed to allocate direct-access 


device storage for track, cylinder, and master indexes: 


1. Determines if the higher levels of index are to be used and where they are to be 


located. 


Tae 
4 


~ 


2. Determines whether the track index will share a track with prime-data records (shared 


track). 
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3. Uses the DEBFIEAD field (indicates if high-level indexes are to be used and set from 
the user-specified OPTCD parameter in the DCB) to determine whether high-level —_ 
indexes are to be used. If the user has not specified an independent index area, the | 
DEBNOEFE field is used to determine whether an independent overflow area has been 
specified. 


4. Module IGGO0192D also sets indicators to specify whether the independent index, the 
independent overflow, or the prime area is to be used for the high-level indexes when 
they are requested by the user. The indicators are passed to module IGGO192E when 
high-level indexes are required. Module IGGO192D transfers control to module 
IGG0192F if high-level indexes are not needed. 


5. Before transferring control, module IGGO192D establishes several fields in the DCB 
work area, ISLCOMON, to be used by other open modules. 


6. Determines if the last index track can be shared by calculating the number of index 
entries required per cylinder and dividing by the number of entries that fit on a track, 
to yield the number of entries on the final track and the portion of the track available 
for data. 


7. If an RPS device is being used, IGGO192D treats the cylinder value on the device as a 
halfword. It also refers to the two halfwords, defined in IGG0O1921 (described 
previously), rather than to the I/O device table for its track capacity calculations for 
prime-data records. A similar field is used during open processing for the analogous 
calculations on the index device. However, this field is already defined in the DSECT 
for the QISAM load mode work area and is returned to its normal usage at the 
completion of open operations. The index backup routine in IGGO192D set bit 1 or 2 
of DEBRPSID, if necessary, as does IGGO195D. 


Load Mode Open Executor IGG0192E —_ 


If in the initial loading (creation) or reloading of an ISAM data set, cylinder or master 
indexes are specified, then executor IGGO192D passes control to module IGGO192E. 
The functions of this executor are outlined below: 


1. Structures the high-level indexes, using information from the data fields established by 
module IGG0192D. 


2. Allocates space for the cylinder and/or master indexes in the independent overflow, 
or prime areas depending on the user’s specifications (in his DCB and data definition 
statements). 


Load Mode Open Executor IGG0192F 


If cylinder or master indexes are not required in the initial load for creating an ISAM 
data set, then module IGGO192D passes control directly to module IGG0192F, instead 
of IGG0192E. The primary functions of IGG0O192F are: 


1. Initializes several index location table pointers (the ISLIXLT fields in ISLCOMON) 
to point to high-level indexes if these indexes have been created by module 
IGGO0192E. 


2. Initializes pointers in the DCB to the high-level index entries. 


3. Places the calculated amount of storage needed for cylinder and master indexes in the 
DCBNCRHI field. This field of the DCB is useful to the user if it is necessary to later bring "4a 
: the high-level indexes into virtual storage to search them. 


4. Module IGGO192F also computes the number of tracks available for independent and 
cylinder overflow and places this calculation in the DCB, the JFCB, and the DSCB. * 
: } 


Note: When the JFCB or DSCB are modified, they are scheduled for rewriting. 


32 MVS/XA ISAM Logic - 











fo” 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0.. “ 


Load Mode Open Executor IGG0192G 


During. the initial loading of an ISAM data set, control is transferred from module 
IGG0192F to executor module IGG0192G. 


1. Module IGGO192G sets up the buffer control table (IOBBCT) used by the Put macro 
processing modules. 


2. Formats and initializes several fields in the DCB work area ISLCOMON) which are 
used later in load mode processing. These fields include: | 


« ISLCBF—a pointer to the buffer to be loaded next by the put processing routine. 


« ISLBMPR—calculated by adding the logical record length to the key length and 
used to facilitate ‘“‘stepping through” a series of records in blocked buffers. 


« ISLFBW—(equal to the number of buffers specified in the DCB minus 1) used to 
determine when buffers are filled and can be scheduled for writing. 


« ISLEOB—contains the end-of-block address calculated from adding the contents 
of the DCBBUFL field to the starting address of the buffer. 


Module IGGO0192G initializes the DCBMSWA field, which is used to indicate the 
last track that may be used for prime records. 


Resume Load Open Organization 


If the user is adding new records to the prime area of a previously created data set 

(resume loading), then module IGG01921 doesn’t pass control to module IGG0192D 

and the rest of the initial load modules; instead, control goes to the resume load modules | 
beginning with IGGO1920 (and IGG01922) or IGGO1950. | 


The beginning open executors for resume load ensures the accuracy of the required 
DSCB and DCB fields. If the user is resume loading a data set containing fixed-length 
records, module IGG01920 is the first module entered. If variable-length records are 
being added to the prime area, module IGGO1950 is entered first. 


Load Mode Open Executor IGG0196C 


IGG0196C receives control from module IGG01922 or module IGGO01950 during the 
opening of a DCB for resume load. IGGO196C performs the following operations: 


1. Zeros the DCBEXCD1 and DCBEXCD7 fields. 
2. Updates the DCB by merging in fields from the format-2 DSCB. 


3. Initializes ISLNIRT and ISLHIRT in the load mode DCB work area with information 
from the format-2 DSCB. 


Load Mode Open Executor IGG0196D 


Module IGG0196D gets control from module IGGO196C. The functions of IGG0196D 
follow: 


1. Sets up the buffer control table. 


2. Sets up the R, F, and P bytes for the current-normal and current-overflow track-index 
entries. 


tip . we 
e a Y 


3. Initializes and executes channel program 31A, which reads the key portion of the last : 
overflow track-index entry of the last cylinder. CP 31A reads this last overflow 
track-index entry into the key save area of ISLCOMON. 


4. Initializes and executes channel program 31B. CP 31B is used to read in the last 
prime-data block allocated for the data set. CP 31B reads this last prime-data block 
into the first buffer specified in the buffer control table. 
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5. Waits on and checks for normal completion of CP 31A and CP 31B. Then it frees the 
storage acquired for them. 


Load Mode Open Executor IGG0195G 


The next module, after IGGO196D, to be executed during open processing for resume 
loading is module IGGO195G. IGG0195G is the resume load counter—a part of the 
initial load module IGGO192G. Both modules calculate and-initialize fields in the 
ISLCOMON area for buffer and record management in load mode. IGG0195G also: 


1. Sets up ISLCBF, ISLEOB, ISLBMPR, and ISLFBW in the load mode DCB work area 
(ISLCOMON). (See module IGGO192G and the ISLCOMON area under “Data Areas.’’) 


2. Sets the DCBMSWA field to the direct-access device address (MBBCCHH) of the 
next-to-last track in the last prime-data extent. The DCBMSWA field normally 
contains the address of a user-supplied work area used when records are being added 
to an existing data set. 


3. Initializes record moving logic. 


4. Initializes Area Y, the load mode processing work area containing a high-level index 
entry, and normal and overflow track-index entries. Area Y is shown in Figure 67. 
ISLVPTRS (in ISLCOMON) points to area Y. 


Load Mode Open Executor IGG0196G 
1. Sets the count fields in ISLCOMON as follows: 
« ISLNCNT—the count field for the current normal-track-index entry. 
« ISLOCNT—the count field for the current overflow-track-index entry. 
e ISLDCNT—the count field for the current dummy-track-index entry. 
2. Sets the count field in the first buffer. 
3. Checks the DCBST field to determine where the data set is loaded. 
Load Mode Open Executor IGG0195D 


If the user has no high-level indexes (cylinder or master indexes), then upon completion 
of module IGG0196G, all the open executors used for resume load only will have been 
executed; the flow of control will pass to the rest of the load mode open executors which 
are used for both initial and resume load. 


However, if during the opening of a DCB for resume loading, high-level indexes are 
required, control is transferred from module IGG0196G to module IGGO195D. 


Module IGGO195D, the last resume—load open executor, initializes the index location 

table (ISLIXLT) in the load mode DCB work area (ISLCOMON). ISLIXLT contains 

the beginning and ending address for each level of index above the track index. 
Full-Track-Index-Write Phase Organization 


If the full-track-index-write option has been selected by the user, two load mode open 
executors (used exclusively with full-track-index-write initialization) are entered. These 
modules are [GG0O195T and I[GG0195U. Both modules are executed during a resume 
load when the full-track-index-write option has been selected. For an initial load, module 
IGGO0195U receives control from IGGO195T but is not executed. 


Modules IGGO195T and IGGO195U are both described below. 
Load Mode Open Executor IGG0195T 
1. Calculates the size of the track-index save area (TISA). When the full-track- 
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index-write feature is selected, the TISA is used by the full-track-index-write- put 
routine module (either IGGO19I1 or IGGO1912, see Figure 11) to accumulate 
track-index entries and write them as a group. This is done once for each track of 
track index. (The full-track-index-wnite is described in “Load Mode Processing Phase 
Operations.”’) 


2. Calculates the size of the appropriate version of channel program 20 (CP20). 
3. Obtains storage for both the TISA and CP 20 and initializes both. 
Load Mode Open Executor IGG0195U 


If the data set is being opened for resume loading, IGG1095U initializes the track-index 
save area and CP 20 to resume writing track-index entries. Otherwise, IGGO195U 
transfers control to the final load mode open executors. 


The Final Executors in Load Mode Open Phase Organization 


From the resume or initial load open modules, and from the full-track-index-write 
modules (if used), control is passed to the final load mode open modules, which are used 
for all forms of load mode open processing. 


Load Mode Open Executor IGG0192U 


The first of the final open executors entered may be either module IGGO0192U or 
IGG0192R. IGGO192U receives control if the user has specified that write-checking is 
used; module IGGO192R receives control if write-checking is not used. 


1. Module IGGO192U loads the modules that contain the: 


e Macro-time routines—modules IGGO19GB or IGGO19]B for the put routine, or 
module IGGO1912 for full-track-index-write routine 


« Appendage routines—module IGG019GD 
e« Channel programs—module IGGO19GF or IGGO19IF 


2. Module IGGO192U also obtains virtual storage for the channel programs needed by 
the processing routines. 


3. Module IGGO192U builds channel program 18 from its skeleton brought in by module 
IGGO19GF or IGGO19IF. 


Load Mode Executor [IGG0192R 


1GG0192R performs exactly those functions outlined above for module IGG0192U}, 
except those necessary for write-checking. 


Load Mode Executor IGGO192S 
Module IGGO192S receives control from either IGGO192U or IGGO192R. 


1. This module builds channel program 19 from its skeleton. CP 19 is used to initialize 
the cylinder overflow record and to preformat shared tracks when required with 
fixed-length records. 


2. If a track is being shared, the temporary index entries on the shared track of the first 
cylinder are written. This is referred to as preformatting the first shared track. .... 
Channel program 19 is used to preformat shared index tracks and to write the cylinder 
overflow control record (COCR). The preformatting of shared tracks pertains to 
fixed-length records only. Area Z in ISLCOMON is used as a work area in 
preformatting the first shared track. 


The description of module IGG0192D also discusses the shared track feature. 
3. This module loads the RPS SIO appendage module (IGGO19GG). 
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Load Mode Processing Phase Operations 


When loading or resuming the loading of an ISAM data set, the user issues a PUT macro 
instruction to place the record in the data set. The put routine moves the record to the 
buffer. When a specified number of buffers are full, channel programs are scheduled to 
write the buffers into the prime-data area of the data set and to create or update any 
required index entries. 


An appendage routine analyzes the results of each channel program execution. When 
necessary, the appendage routine will start a new channel program to continue or 
complete the request, or it will process and resolve errors resulting from the channel 
program execution. If the original request was successfully completed, the appendage 
routine returns control to the user. 





Information about the data set is communicated among the processing routines and the 
channel programs in control blocks and work areas. These data ‘areas are described in 
detail under “‘Data Areas.”’ 


This part describes the processing routine logic, the flow of control through the channel 
programs, in addition to the relationships of the data areas to each other, the channel 
programs, and the processing routines. 


Put Routine 


Successive PUT macro instructions cause entries to the put routine, which places records 
into the data set and creates the necessary indexes. The records must be in data key 
sequence. The put routine (shown in Figure 6) may operate in either of two modes: 
move or locate. In move mode, the routine actually moves a logical record from an input 
buffer or work area into an output buffer. In locate mode, the routine supplies the 
address of an output buffer to the processing program, which must then move the record 
to that buffer. The mode of PUT is specified in the DCBMACRF field of the DCB. 


The put routine utilizes the beginning-of-buffer and end-of-buffer subsidiary routines to 
accomplish buffer management. The put routine initializes the various channel programs 
and requests their execution when writing data or indexes. The appendage modules gain 
control after channel program execution and indicate whether or not the writing was 
successful. 


The put routine first checks to see if the appendage routine has signaled (in DCBEXCD1) an 
uncorrectable write error on a previous attempt to write either data or index entries. If so, the 
put routine takes the exit to the processing program’s synchronous error routine, where the 
user may either issue a CLOSE macro instruction or terminate the task. In any event, no more 
records will be accepted. The results are unpredictable if the programmer issues another PUT 
macro instruction. 


The put routine then performs a check on the data key. (In locate mode, the key checked 

is that of the previous record.) If the keys are not in ascending sequence, control is given 
to the user’s synchronous error routine. However, in this case, if the processing program 
is able to correct the sequence error, it may issue another PUT macro instruction for this 
record, and continue normal processing. 


~ For variable-length records, the put routine compares the length of the record with the 
maximum record length specified in DCBLRECL. If it is greater than the maximum record wir 
length, the put routine sets bit 4 of DCBEXCD2 and enters the user’s synchronous error . 
routine. The user may either change the record length and reissue a PUT macro instruction for 
this record or may reissue one for the next record. 


The put routine next determines if the processing mode is move or locate mode. me ™ 
Move Mode Processing 


Fixed-Length Records: If the current buffer is full, the routine links to the 
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Figure 6. Load Mode Put Routine 


a 


beginning-of-buffer routine to initialize a new buffer. 





It then moves the user’s record to the buffer. If this record completes the buffer, the 
routine links to the end-of-buffer routine to attempt to write the buffer. If the buffer is 
not full but a write-channel program is available, the routine uses the end-of-buffer 
routine to attempt to write any previously filled buffers which could not be written for 
lack of a channel program. 


The routine then returns control to the user. 


Variable-Length Records: If the record format is blocked and the record fits in the~:~..., 
current buffer and/or on the current track, it is moved into the buffer and control is 
returned to the user. If the record format is unblocked or if the current buffer is full, 
control is passed to the end-of-buffer routine to schedule the current buffer for writing. 
The end-of-buffer routine will pass control to the beginning-of-buffer routine to initialize 
the next buffer. Then the record is moved into the new buffer and control is returned to 
the user. 
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If the record does not fit on the current track either as part of the current buffer or as 
another block, the current buffer is marked as the last for the current track. Control is 
then passed to the ehd-of-buffer routine to schedule the current buffer for writing. The 
end-of-buffer routine passes control to the beginning-of-buffer routine to initialize the 
next buffer. The record is moved into the new buffer and control is returned to the user. 


Locate Mode Processing 


Fixed-Length Records: The the current buffer is full, the put routine links to the 
end-of-buffer routine to attempt to write the buffer just filled and then immediately links 
to the beginning-of-buffer routine to initialize a new buffer. If the current buffer is not 
full but channel program 18 is now available, the routine links to the end-of-buffer 
routine to attempt to write any buffers that could not be written previously because the 
channel program was in use. 


The locate put routine then provides the processing program with the address of an 
available buffer and returns control to the processing program. 


Variable-Length Records: The put routine computes the number of bytes remaining in the, 
current buffer, using the buffer size and subtracting the sum of the logical record lengths of the 
records that have already been placed in the buffer by the user. Then the routine determines if 
another record of maximum LRECL can be placed into the address of the available position in 
the buffer. Otherwise, if the number of bytes remaining in the buffer is less than LRECL or if 
record format is unblocked, control is passed to the EOB and BOB routines, as described in the 
discussion of move mode. If it is determined the number of LRECL bytes added either to the 
current buffer or as another block exceeds the remaining capacity of the current track, the 
current buffer is marked as the last for the track. Control is then passed to the EOB and BOB 
routines. 





Beginning-of-Buffer Routine 


The beginning-of-buffer routine (shown in Figure 7) initializes a new buffer and 
determines the device location into which the buffer will eventually be written. If the 
records are fixed-length and the location for this buffer proves to be the first location 
available for data records on a new cylinder, CP 19 may be called to preformat the track 
index of the cylinder if it is to contain a shared track and/or a cylinder overflow control 
record. In the preformatted records, only the count field is significant. ° 


If writing this buffer causes the data set to exceed the prime-data space allocated to it, or 
if the appendage routine has indicated that an uncorrectable write error occurred during 
an attempt to add the previous contents of this buffer to the data set, the 
beginning-of-buffer routine takes.the exit to the processing program’s synchronous error 
routine. The user may either issue a CLOSE macro instruction or terminate the task. In 
any event, no additional records will be accepted when either of these errors occurs. 


End-of-Buffer Routine 


The end-of-buffer routine is entered when the put routine has determined that the 
current buffer is full. The EOB routine initiates writing of the current buffer, and any 
previously filled buffers not yet written under these conditions, when the current buffer 
is marked as the last one for the current track or when the number of buffers ready for 


writing is equal to the value of ISLFBW. arr 


The number of buffers that must be filled in order for a write to be scheduled (so that | 
the number of writes per track is kept minimal) is maintained in the field ISLFBW. Its | 
content depends on the number of buffers in the pool; however, it does not exceed the 

number of buffers necessary to fill an empty track if one is to be started or to filla : f 
partially written track if one has already been started. 


\ 38 MVS/XA ISAM Logic an 


ce ' 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





Beginning 
of buffer 









Locate count field 
in previous buffer 






Will new count 
start new cylinder 


Preformat 
new cylinder 










Preformat 






Initialize 
new buffer 


Figure 7. Load Mode BOB Routine 

If a channel program is available and if the number of full buffers is equal to the content 
of ISLFBW, the end-of-buffer routine (shown in Figure 8) schedules a write channel 
program for that number of buffers and then recomputes the number. If a track or 
cylinder is to be completed, it also schedules channel programs to write index entries. 
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Figure 8. Load Mode EOB Routine 





Full Track-Index-Write we 


The full track-index-write is an option for load mode that may be selected by specifying 
DCBOPTCD=U. 


4 


When the full-track-index-write option is specified, ISAM accumulates track-index 
entries in a track-index save area (TISA) obtained during open processing and writes 
these entries as a group, once for each track of track index. 
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The TISA obtained during open processing is preceded by a 20-byte control field which 
controls placement of entries. : 


The TISA is written when it is full, when end-of-cylinder is detected, or at processing 










































































time. 
Appendages 
There are both channel-end and abnormal-end appendages (shown in Figures 9 and 10) 
for the channel programs of load mode. 
\ 
Channel End Channel End 
CP 18/20 - cP 19 
Reset CP 18/20 Less than 10 Normal return 
busy bit entries to write 
: Set CP start address 
Set status bits : ; 
‘Buffer Available’ for to skip cylinder First execution 
each buffer written overflow control of CP 19 
record write 
Update pointer to dauttalize Final execution 
next buffer group to count fields of CP 19 
be written (IOBPTRA) in area Z 
Normal return EXCP return 
to lOS to [OS 
Channel End ry 
CP 21 
_ | 
j 
Construct entry in area Master index | 
Y portion of load entries to write 
| mode work area = | 
Initialize CP 21 Normal return 
to write to 10S 
master index entry 
Note: CP 21 writes the cylinder and master index entries 
on initial entry to the cylinder index entry already | 
EXCP return written. 
to 10S 
Figure 9. Load Mode Channel-end Appendage Routine Sea 
Channel-End Appendage: The channel-end appendage for CP 18 and CP 20 indicates 
successful completion of the channel program to the put routines. The channel-end | 
appendage of CP 21 indicates successful writing of an index record and determines . oN | 
whether a higher level index entry is needed. If.so, it creates that index entry and issues | 
an EXCP so that entry will be written. The channel-end appendage of CP 19 receives | 
control after ten index entries have been written on a shared track and checks to see if | 
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Figure 10. Load Mode Abnormal-end Appendage Routine 









more are needed. If the track is not yet full, it continues to issue EXCP commands until 
the track is properly formatted. 


When write-checking has been specified, the CP 18 and CP 19 channel-end appendages 
reinitialize those channel programs to reread the data or index entry written before 
indicating successful completion. Appendages do not modify the channel programs when 
CP 20 and CP 21 are used with write-checking, because those channel programs are 
designed to read back without modifications. 


Abnormal-End Appendage: The abnormal-end appendage for CP 18, upon finding a 
permanent error, identifies the buffer in error, saves the contents of the appropriate 
input/output block (IOB), and indicates the error to the put routine. The abnormal-end 
appendages for CP 19, CP 20, and CP 21 also indicate permanent errors to the Put 
routine. 


When write-checkirig has been specified, the CP 18 and CP 19 abnormal-end 
appendages have an additional function. If an error (for example, data check) is detected 
during read-back, the appendage reinitializes CP 18 or CP 19 for writing and issues the 
EXCP command. 


Load Mode Processing Phase Organization 


The processing routines of load mode include one module that contains the put routine 
and its subsidiary routines: the beginning-of-buffer (BOB) routine and the end-of-buffer 
(EOB) routine. In addition, there is one module of appendages and one module of 
channel programs. Each of these modules exists in several versions; the version selected 
and executed depends on the options specified by the user. Load mode open executors, 
IGG0192U and IGG0192R, load the proper version according to the user’s program 
options. Figure 11 shows the load mode processing modules. 
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Figure 11. Load Mode Processing Modules 





Channel Programs 
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The channel programs (except CP 31 and CP 91) exist in write-checking and 


Put processing contains Put 
routine, EOB routine, and 
“BOB routine. 


Put appendage routines-- 
channel-end and 
abnormal-end. 


Channel program skeletons — 
contains CP 18, CP 19, CP 20 
and CP 21. 


RPS SIO appendage 





no-write-checking versions. CP 19 and CP 20 also exist in different versions for 
fixed-length records and variable-length records. Figure 11 shows which channel 
program skeleton modules are loaded for each combination of user options. Flow of 
control through the channel programs is shown in Figure 12 for fixed-length records and 


in Figure 13 for variable-length records. 


CP 18 Used to write prime-data records. 


CP 19 Fixed-length records: used to initialize cylinder overflow record and shared index 


tracks (preformat). 


Variable-length records: used to initialize cylinder overflow control record. 


CP 20 ‘Used to write track-index entries. 


CP 20A __ Used to write a full track of track-index entries on a nonshared track of 


track-index entries. 


CP 20B Used to write a shared track of track-index entries. 


CP 20C Used to perform write-checking for CP 20A and CP 20B. 


CP 21 Used to write cylinder and master-index entries. ea 
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Figure 12. QISAM—Load Mode Channel Program Flow (Fixed-Length Records) 


CP 31A Used to read the key portion of the last overflow track-index entry of the last 
prime-data cylinder into the key save area. (Resume loading only, located in 
I1GG0196D.) 


CP 31B Used when the last prime-data block is not full enough to read it into the first 


buffer specified in the buffer control table. (Resume loading only, located in 
IGG0196D.) 


CP 91 Used to fill unused index tracks with inactive and dummy entries. (CP 94.is., 
located in IGG0202K.) . 


Control Blocks and Work Areas 


Information about the data set and processing requests is carried in various control 
blocks and work areas. The relationship of these areas to each other and to the data set ! 
and processing programs is shown in Figure 14. 
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Figure 13. QISAM—Load Mode Channel Program Flow (Variable-Length Records) 





Load Mode Close Phase. Operations 
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The first load mode close executor is entered from the close routine. When all previously 
scheduled writes are finished, the load mode close executors complete the data set 
activity for load mode. The load mode close phase:. 


e Pads the last buffer 

e Completes the writing of buffers 

e Completes the writing of index entries 
e Writes end-of-data mark 

« Pads track indexes-on unused cylinders 


e Pads high-level indexes 
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Figure 14. Load Mode Control Blocks and Work Areas 


Load Mode Close Phase Organization 
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The close phase of QISAM load mode comprises seven executor modules that perform 
operations required to complete data set activity when a previously scheduled write 


operation is completed. 


The flow of control through the close executors is shown in Figure 15. After the 
mode-oriented close executors have completed their functions, the ISAM common close 
executor (IGG0202D) receives control. After completing the closing functions common 


to all ISAM, it returns control to the O/C/EOV close routines. 


Load Mode Close Executor [1GG0202I 


After receiving control from the close routine for a fixed-length record data set, Be 
IGG0202I does the following: 
1. Pads (fills with dummy records) the last buffer, if necessary 
2. Writes all filled but unwritten buffers 
| 
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Figure 15. Flow of Control through QISAM. Load Mode Close Executors 


Load Mode Close Executor IGG0202N 


This module receives control from IGG0202I, completes the index entries, and transfers 
control to IGG0202J. 


Load Mode Close Executor IGG02028 


This module receives control from the close routine for variable-length record data sets 
only. It then: 


1. Writes all buffers that are filled but not yet written into the data set 
2. Completes the index entries so these reflect the complete data set 
Load Mode Close Executor IGG0202J 

1. Writes the end-of-data mark after the last data record 

2. Writes the end-of-file mark in independent overflow 

Load Mode Close Executor IGG0202K 


1. Performs calculations for modules IGGO202L and IGG0202M in padding unused index 
space 
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2. Initializes channel program CP 91, which is used to fill unused index tracks with inactive 


-_ dummy entries. 


is Load Mode Close Executor IGG0202L 
1. Writes the final dummy end-index entry. 


2. Pads, with inactive entries, the unused track-index space of the cylinder containing the 
last prime-data record. Module IGG0202L-uses ISLNIRT to signal the end-of-track 
index padding. 


Load Mode Close Executor IGG0202M 


1. Determines if higher level indexes exist and, if so, writes the final dummy entries for 
them. 


2. Pads any unused index space with inactive entries. (See ‘‘Appendix A. ISAM Data Set 
Organization”’ for information on dummy entries and padding.) 


Queued Indexed Sequential Access Method, Scan Mode 


The scan mode of QISAM retrieves and updates the records of an indexed sequential 
data set in a manner similar to that of the queued sequential access method. 


There are three phases of scan mode routines: 
e The open phase 
The processing phase 


e The close phase 


~ Scan Mode Open Phase Operations 


The ISAM common open executors are executed when an indexed sequential data set is 
opened and is to be processed by scan mode.-The last ISAM common open executor 
passes control to the scan mode open executors. The scan mode open executors: 


1. Move format-2 DSCB items to the DCB 
2. Construct the DCB work area 


3. Load the scan mode modules 





4. Initialize channel programs and free queues. 


e 


Scan Mode Open Phase Organization 


The scan mode open executor modules are IGG01920, IGG01922, IGG01950, 
1GG01928, IGG01929, and IGG01924. 


As shown in Figure 16, the common open executor IGG0192C transfers control to the 
beginning open executors, which are the validation modules, IGG0O1920, [GG01922, and 
IGG01950. The validation modules ensure that the DSCB and DCB fields needed are 
still accurate. If the data set contains fixed-length records, module IGG01920 will be the 
first module entered. For variable-length records, module IGG01950 is entered first.. -. 
IGG01920, IGG01922, and IGG01950 are described in the common processing module > 
description part of this manual. 


Upon completion, the validation modules pass control to the first executor used 
{> exclusively in opening for scan mode, module IGGO01928. 
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Figure 16. Flow of Control through Scan Mode Open Executors 


Scan Mode Open Executor IGG01928 


1. 


Obtains storage for and structures the QISAM scan mode DCB work area (see “Data 
Areas’’). 


. Loads scan mode processing modules. 
. Loads module IGGO19HL, which contains the channel program skeletons. 


. Moves the required channel program skeletons into the scan mode work area (see 


Figure 26). This includes moving one copy of the read/write channel program, CP 22, 
into the work area for each buffer. 


. Deletes the channel program skeleton module, IGGO19HL, from virtual storage. 


. Tests the bits at DEBRPSID for an RPS device. If any of the bits are on, the scan 


mode RPS SIO appendage, IGG019HA, is loaded by executor IGG01924. A 
GETMAIN macro instruction for a 16-byte larger work area is issued to allow for the 
channel program prefix required RPS devices. 


Scan Mode Open Executor IGG01929 


ile 


Di 
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Initializes the channel programs loaded by module IGG01928 in the DCB work area. 
If necessary, it initializes these channel programs to their non-RPS state. 


Chains the copies of CP 22 together. Assigns a buffer to each copy of CP 22. 
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Scan Mode Open Executor IGG01924 


1. Moves the format-2 DSCB fields needed into the DCB. (See modules IGG01950 and 
I1GGO01920 in this section.) 


2. Loads the RPS SIO appendage if required. (See module IGGO1928 above.) 
3. Completes the initialization of the scan mode work area. 


4. Obtains the interruption request block (IRB) that is used by the supervisor to 
maintain information concerning an asynchronous routine located in the get 
appendage module (IGGO19HG). Among the information in the IRB is the entry 
point address (RBEP—see the IRB as shown in Figure 26) of the asynchronous 
routine within module IGGO19HG. (See the discussions of the scan mode get routine 
and the appendages for further information on this asynchronous routine.) 


5. Calculates W1ICNOT, which is equal to the integer that contains the number of 
buffers (DCBBUFNO) divided by 2(;W1ICNOT=BUFNO/2). 


WI1ICNOT is located in the scan mode DCB work area, and is used in scheduling 
input/output requests. The read/write channel program (CP 22) is only scheduled if 
the W1ICNOT field is set. 


Scan Mode Processing Phase Operations 


QISAM scan mode is designed to read records from and/or write records back to an 
ISAM data set, selectively. Scan mode may be used to retrieve and update indexed 
sequential data records sequentially. The basic features of scan mode that make it able to 
retrieve and update records from any point in the data set are: 


« A buffer controlling technique that allocates a copy of the read/write channel 
program (CP 22) to each buffer. 


e Several logical buffer queues to which each copy of CP 22 and the buffer that the CP 
22 points to may be moved. Figure 17 illustrates the chaining of channel’ program 22 
and the buffers on these queues. 


e« Use of the W1ICNOT field in the scan mode DCB work area. W1ICNOT is equal to 
DCBBUFNO /2 or the number of records on a prime track, whichever is less. 
WI1ICNOT is especially important in the scheduling routine operations. (Refer to the 
scheduling routine description.) 


The five macro instructions that cause scan mode processing routines to retrieve and update 
indexed sequential data records are SETL, GET, PUTX, ESETL, and RELSE. These macro 
instructions are described fully in Data Management Macro Instructions. 


The SETL routine sets the starting point of retrieval. The et routine makes records 
available to the processing program. The PUTX routine restores the records to the data 
set. The ESETL routine terminates scanning of the data set. The RELSE routine causes 
the remaining records of the current buffer to be released for output. 


SETL initializes channel programs to search the indexes for the start-of-retrieval point 
and to read in the first buffer or buffers. GET initializes channel programs to read 
successive buffers, and PUTX causes the same channel programs to be reset and 


rescheduled to write the updated buffers back into the data set. ey 


The channel programs for scan mode are described in detail in “Appendix B. SAM 
Channel Programs.” Appendage routines analyze the results of each channel program 
and initiate further processing operations depending on the status of the channel 
program’s successful or unsuccessful execution. 
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Information about the data set is communicated among the processing routines and the 

: channel programs in control blocks, work areas, and queues. This section shows the = 
relationship of these areas to each other. They are described in detail under ‘‘Data 
Areas.”’ 


This section describes the processing routine logic. 


Buffer Control Techniques 


Buffers are attached, by a copy of CP 22, to any one of the five buffer queues. (See 
Figure 17.) These queues are used in controlling input/output operations. The buffers 
are assigned to particular queues according to the current status of each buffer. 


e Free queue buffer is not in use. 


e Read queue buffer is scheduled to be filled (a version of CP 22 reads a record or 
records into the buffer). 


e User queue buffer is made available for processing program use by the GET macro 
instruction. 


e PUTX queue buffer is flagged as ready to be written. 
¢ Write queue buffer is scheduled to be written. 


The queuing on these buffer queues is handled by the get routine and its subsidiary 

routines—the scheduling routine and the end-of-buffer (EOB) routine. However, all 
scan mode routines handle the buffer queuing to some degree. Figure 18 illustrates the 
buffer movement during scan mode processing. 





The buffer queue movements of SETL and ESETL are shown in the upper portions of 
Figure 18, and the effects of Get and PUTX in the lower portion. The routines that 
process the queues are indicated on the flowlines to and from queues. 


Free Queue Read Queue User Queue PUT Oiede Write Queue 


CTrmc K [lem] [rm] [| rma 
Pieser— Tiger} = |] uence 
Te} Fo pe 


Channel Program 22 Channel Program 22 Channel Program 22 . Channel Program 22 
Buffer 1 Buffer 2 Buffer 3 


Note: 
C= The number of buffers in the queue. 
R= A residue of unused buffers in the Read queue. The R field is used to provide more efficient scheduling of overflow records. 
Figure 17. Scan Mode Channel Program/Buffer Queues 
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Figure 18. Buffer Queuing and Movement in Scan Mode 





An Example of Buffer Movement in Scan Mode 


For this example, it has been assumed that the number of buffers=3, the number of 
logical records per buffer=2, and each GET macro instruction issued is followed by a 
PUTX macro instruction. 


Macro Instructions Buffer Movement 
1. OPEN All buffers (3 buffers in this example) are placed on the Free queue. 
2. SETL a. Locate the starting record of the file (or string of records) specified in 


the SETL macro instruction. 





b.. Place buffer 1 on the Read queue.and schedule a read of the specified 
records into buffer 1; wait for completion of the read. 


3. GET (1st GET) a. Move buffer 1, which has been filled, to the User queue. 
b. Move buffers 2 and 3 to the Read queue and schedule a read operation. 
c. Return the address of the first retrieved record to the user. 


4. PUTX Any PUTX will set an indicator that the current record is to be written back 
to the data set and returned. 


5. GET (2nd GET) a. If the outstanding reads from the previous GET are completed, move 
those buffers to the User queue. 


b. Return the address of the next input record to the user. 


6. GET (3rd GET) a. Onthe third GET macro instruction, move the processed buffer (buffer 
1) to the PUTX queue. (It is assumed that a PUTX macro instruction 
follows each GET macro instruction in the processing program.) 


b. Move buffers 2 and 3 from the Read queue to the User queue, unless 
these buffers were moved to the User queue by the Get routine in step 


5. 
c. Return the address of the next input record in the file to the user. 
ae 
7. GET (4th GET) Return the address of the next input record to the processing program. - 
8. GET (Sth GET) a. Move the processed buffer (buffer 2, in this instance) to the PUTX 
queue. 


b. Move two buffers from the PUTX queue to the Write queue and 
schedule a write operation. Since the PUTX has been executed for two 
buffers, a Write may now be scheduled. (See ‘Scheduling Routine” and 
““EOB Routine.”) 


Method of Operation. 5t 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


SETL Routine 


Get Routine 
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Macro Instructions Buffer Movement 


c. Return the address of the next input record. 


9. GET (6th GET) a. If the scheduled write is completed (step 8), move the two buffers from 
the Write queue to the Read queue and schedule a read. 


b. Return the address of the next input record. 


10. GET (7th GET) a. Onthe seventh GET, the processed buffer (buffer 3, in this example) is 
moved to the PUT X queue. 


b. When the scheduled read is completed (step 9), move two buffers to the 
User queue. (It may be necessary to wait for the last scheduled write, 
move the buffers to the Read queue, issue a Read, and wait for that 
Read before this step can be executed.) 


c. Return the address of the next input record. 


ll. GET/PUTX The succeeding GET and PUTX macro instructions repeat steps 7 through 
10. Every time a read takes place, 2 blocks will have been filled. For a write 
to occur, 2 buffers must be filled. 


12. (ESET a. Wait for any outstanding read or write to be completed. 
b. Move buffers from the Read or Write queue to the Free queue. 


c. Move any buffers from the User queue to the PUTX queue or to the 
Free queue. 


d. Move any buffers on the PUTX queue to the Write queue and schedule 
a write. 


13. CLOSE a. Wait for any scheduled, but uncompleted writes to be completed. 


b. Return all buffers to the buffer pool. 


The SETL routine (shown in Figure 19) determines the start of a scan by executing a 
channel program (dependent on the SETL option used) to search the indexes for the first 
record or block to be retrieved. In scan mode, records are retrieved from the beginning 
of the data set unless a SETL macro instruction is used. 


In addition to determining the starting point, the SETL routine initializes the buffer 
queues. When scanning is initiated, all buffers are on the Free queue. (See ‘““Scan Mode 
Open Phase Operations.’’) However, when subsequent scans are to be initiated, it is 
possible that buffers remain on the Write queue from the previous scan. When this is the 
case, the SETL routine moves these buffers to the Free queue after awaiting the 
completion of any writes in progress. The SETL routine then moves a buffer from the 
Free queue to the Read queue, initiates a read operation, and upon completion of the 
read operation, returns control to the processing program. 


If the SETL routine detects any error condition, it sets the corresponding bit for that 
error in the DCB exceptional condition (DCBEXCD1) field. (The exceptional condition 
codes are described in “Diagnostic Aids.’’) After setting this bit, SETL passes control to 
the processing program’s synchronous error routine (SYNAD). If no synchronous error 
routine is present, the task is abnormally terminated. 


When the data set is shared (DISP=SHR), the SETL routine issues an SVC 54 
instruction to refresh the DCB from the DCB field area (DCBFA). (See ‘““The DCB 
Integrity Feature’ under ““The ISAM Common Open Executors.”’) 


The get routine (shown in Figure 20) retrieves records from the data set sequentially 
and gives the processing program access to a record in the current buffer on the User 
queue. (SETL fills the first buffer.) The get: routine has two subsidiary routines: the 
end-of-buffer routine and the scheduling routine. 


a 
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Figure 19. Scan Mode SETL Routine 

If, on entry from the macro instruction, the user has already been given access to the last 
record of the User queue buffer currently being scanned, the routine links to the 
end-of-buffer routine to advance to a new buffer. 


Then, if a write has been initiated and is complete, the get routine moves the buffers on 

the Write queue to the Free queue. If the, get routine finds that an appendage routine 

has indicated unsuccessful completion of a previous write, the exit to the processing 
program’s synchronous error routine is taken. Another GET macro instruction must be 
issued before a record becomes available for processing. 


Ges. Te 


7 ek 
If the previous attempt to schedule a read has been unsuccessful because of a shortage of ~ 


available buffers (refer to “Scheduling Routine” for criteria for determining the 
minimum number of buffers necessary), the scheduling routine is used to make another 
attempt to execute the read. 
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Figure 20. Scan Mode Get Routine 


If a read has been initiated and is complete, the routine moves the buffers on the Read 
queue to the User queue and uses the scheduling routine (refer to “Scheduling Routine’’) 
to attempt to schedule a new read. 


If a buffer on the User queue has been incorrectly read, each GET command issued to 
that buffer causes control to pass to the synchronous error routine. For blocked records, 
successive GET commands to the buffer give the synchronous error routine access to 
each record of the buffer in turn. When the buffer is exhausted and another GET macro 
instruction is issued, the return to the processing program is normal unless another read 
error occurred. 


EOB Routine 


The end-of-buffer (EOB) routine, which is shown in Figure 21, moves the buffer just 
completed from the User queue to either the PUTX queue or the Free queue. It moves 
the buffer to the PUTX queue if the user has issued a PUTX macro instruction for any of 
the records in that buffer; otherwise, it moves the buffer to the Free queue. 


If there is a minimum of N/2 buffers on the PUTX queue and a previous write has been 
completed, the routine moves the Write queue buffers to the Free queue, the PUTX 
queue buffers to the Write queue, and initiates a write. 


If at this point there are buffers on the User queue, the routine returns control to the 
calling routine. Otherwise, the routine must move buffers from the Read queue to the 
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Figure 21. Scan Mode EOB Routine 





User queue. If the Read queue is empty, the routine waits for completion if a write is in 
progress, moves the Write queue to the Free queue and uses the scheduling subroutine to. 
initiate a read and, on completion of that read, moves the Read queue to the User queue. ~“- 
If the Read queue is not empty, the routine moves the Read queue to the User queue. It 


then returns control to the calling routine. 


Before moving a buffer from the Write queue to the Free queue, the routine ensures that 
the write operation of that buffer was successfully completed. If not, the synchronous 


error routine is given control. 
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Processing in the scheduling routine (shown in Figure 22) depends primarily on whether the 
next record to be read is on a prime-data or an overflow track. 


cheduling routine 
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overflow on Free to Read queve 
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No 


--J 
Return 


Figure 22. Scan Mode Scheduling Routine 





If an overflow record is to be read, a read may be scheduled if there are at least two 
buffers on the Free queue. It may also be scheduled if there is only one buffer and that 
buffer is on the Free queue. Before initiating the read, the routine moves the Free queue 
to the Read queue. It then returns control to the calling routine. 


If prime data is to be read, it attempts to schedule a read of N/2 buffers. Provided N/2 


buffers are available and at least N/2 blocks remain on the track, this can be done. It can 


also be done with fewer than N/2 blocks remaining on the track if the track is not the 
last one of a cylinder and no overflow chain is associated with the track. If these 
conditions are met, the routine moves N/2 buffers from the Free queue to the Read 
queue, initiates a read, and returns control to the calling routine. 


If these conditions are not met, the scheduling routine initiates a read operation to 
complete the last track of a cylinder or a track having an overflow chain associated with 
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it, provided that sufficient buffers are available on the Free queue. As before, it moves 
the buffers required to the Read queue, initiates a read, and returns control to the calling 
routine. 


If a read cannot be initiated, the routine returns control to the calling routine. 


PUTX Routine | 


The PUTX macro is used in updating data sets. When the PUTX macro instruction is issued in 
the processing program, the PUTX routine of scan mode will be used (see “‘Qisam Scan: Mode 
Processing Modules,” Figure 24). The PUTX routine causes records obtained by the locate 
mode GET macro instructions to be written back to the data set. 


The PUTX routine sets an indicator flag associated with the current buffer on the User 
queue. The GET macro instruction’s end-of-buffer (EOB) routine uses this indicator to 
determine if the User queue buffer should be moved to the PUTX queue. Eventually, the 
buffer will be moved from the PUTX queue to the Write queue (it is moved either by the 
EOB routine for GET or by the ESETL routine when an ESETL is issued in the 
processing program). Once on the Write queue, the buffer is scheduled to be 
written—that is, the channel program used to read or write the buffer (a copy of CP 22 
is used with each buffer) is reset and scheduled to write the udpated buffer back into the 
data set. 


ESETL Routine 
The ESETL routine (shown in Figure 23) ends scanning of the data set. 


If the user has issued a PUTX macro instruction for any of the records in the current 
buffer on the User queue, the routine moves the buffer to the PUTX queue. If the Read 
queue is not empty, the routine awaits completion of pending reads and then moves the 
Read queue to the Free queue. 


If the PUTX queue is empty, the routine returns control to the processing program. 
Otherwise, the routine awaits completion of pending writes and moves the Write queue 
to the Free queue if the write was successful. (If the write was not successful, the 
synchronous error routine is entered, and another ESETL macro instruction must be 
issued to end this scan.) It then moves the PUTX queue to the Write queue, initiates a 
write, and returns control to the user. buffering is not used, the appendage vector table 
of the DEB contains the address of the RPS SIO appendage module.) 


RELSE Routine 


The RELSE routine links to the end-of-buffer routine causing the current buffer to be 
released and a new buffer to be initialized. If the current record is the first or last logical 
record in the buffer, the request is ignored. The RELSE routine then returns to the user. 


The RELSE routine also determines if there were any write errors for those buffers on 
the Write queue whose writing had been completed. If so, the processing program’s 
synchronous error routine is given control and another RELSE must be issued to release 
this buffer. 


Appendages 


There are both channel-end and abnormal-end appendages for those routines that cause” 
input/output operations. (Refer to Figure 24.) 


The channel-end appendage of the SETL I routine causes a normal return to the I/O 
supervisor if CP 25 was completely executed. If CP 25 was not completely executed, 
either the channel-end or abnormal-end appendage of the SETL I routine may be 
entered, depending on the setting of the CSW status bits. In the case of incomplete 
execution, an indicator is set so that the SETL I routine can later inform the processing 
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Figure 23. Scan Mode ESETL Routine 


program that the record was unreachable. A normal return to the I/O supervisor is 
issued. 


r-1 


The channel-end and abnormal-end appendages of the SETL K (or SETL KC) routine 
examine CP 23 to find out where and why the channel program terminated. Based on 
this examination, either CP 23 is reinitialized to continue searching for the desired key 
by issuing an EXCP return, or an indicator is set to inform the processing program that 
the key could not be found and a normal return is issued. Whether the examination is 
performed by the channel-end or abnormal-end apperdage depends on the setting of the 
CSW status bits and the contents of the higher level indexes. 


The channel-end appendage of the get routine issues a normal return to the I/O 


supervisor if there are no more buffers on the Read queue, or the last record on a track baa 


has been read, or the buffers on the Read queue were filled with records read from a 

prime-data area. This channel-end appendage issues an EXCP return to the I/O : 
supervisor, or schedules an asynchronous routine to issue an EXCP return if an overflow 

record was read after it modified CP 22 to continue reading the records in the overflow 

chain.. When the last record of an overflow chain has been read, a normal return is 

issued. The abnormal-end appendage of the get routine sets an indicator to mark the 
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buffer that contains the record in error and issues an EXCP return if there are more 
records to be read. Otherwise, it issues a normal return. 


The channel-end appendage of the PUTX routine (without write-checking) makes a 
normal return to the I/O supervisor if there are no more buffers on the Write queue. An 
EXCP return is issued if there are more buffers on the queue to be written. The 
abnormal-end appendage makes the same returns under the same conditions, but, in 
addition, it sets both a write-error indicator and an indicator to inform the processing 
program which buffer contains the record in error. 


When a write-checking is in effect, the PUTX routine channel programs are 
command-chained to write the contents of a set of buffers at a time, rather than writing 
all the buffers on the Write queue. For prime-data records, a set of buffers is the number 
of buffers on the queue or the number needed to complete the current track, whichever 
is lower. For overflow records, a set is one buffer.. The contents of a set of buffers is 
written and checked before the next set is written. 


If return is to the channel-end appendage after the inital write of a set, CP 22 is modified 
to accomplish readback, and an EXCP return to the I/O supervisor is issued. 


If return is made to the abnormal-end appendage after the initial write of any buffer in 
the set, that buffer is marked unreachable or unwritable and an EXCP return is issued to 
write the remaining buffers in the set; if no buffers remain in the set, CP 22 is modified 
to accomplish readback of the successfully written buffers, and an EXCP return is 
issued. No attempt will be made to rewrite the buffer in error; the processing program 
will be informed of the error the next time a GET macro instruction is issued for the 
buffer. 


If channel-end return is made for both writing buffers and reading them back, an EXCP 
return is issued if there is another set to be written. Otherwise, a normal return is issued. 


If a return to the abnormal-end appendage occurs when reading back a buffer that was 
successfully written, an EXCP return is issued to rewrite, and an additional EXCP return 
is issued to recheck the buffer in error. Up to ten rewrites and rechecks per buffer are 
permitted; CP 22 must be modified for each readback and rewrite. If a successful 
readback cannot be accomplished, or if an abnormal-end return is made on any of the 
attempts to rewrite the buffer, the buffer is marked as unwritable and an EXCP return is 
issued to start writing the next set. If there are no more sets to be written, a normal 
return is issued. ; 


When an EXCP return is to be issued and the next record to be written or searched is on 
another device, the appendage routine cannot issue the EXCP command itself. Instead, it 
schedules an asynchronous routine (located in the GET appendage). When the 
asynchronous routine receives control, it issues the EXCP macro instruction. 


Scan Mode Processing Phase Organization 


Processing Routines 


The modules containing the scan mode processing routines are shown in Figure 24. 


Scan Mode Channel Programs ieee, 


wh, 
The scan mode channel program skeletons are contained in module IGGO19HL. The 
channel program skeletons are moved to a work area and completed during the open 
phase of scan mode. 


In processing and updating an ISAM data set, the following scan channel programs are 
used: 
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Figure 24. QISAM Scan Mode Processing Modules 


Channel Program 22 (CP-22) The two versions of CP 22 are used to read or 
write data records. Version 22A (CP 224A) is 
used to read the key and data fields of unblocked 
records. Version 22B (CP 22B) is used to read 

: either the cata field of unblocked records, or any 
blocked records. 


Channel Program 23 (CP 23) Used to locate the data record by SETL K or KC; 
searches the index and data tracks. 

Channel Program 24 (CP 24) Used to read count and data fields of the 
track-index entries. 

Channel Program 25 (CP 25) Used with SETL I to obtain track-index entries. 

Channel Program 26 (CP 26) Used on overflow chains as an extension of CP 
23 (SETL K). 


If the user has allocated enough buffers and is reading a full track at a time, as many CP 
22s as are needed (one for each buffer) are chained together for reading the track; the 
Same is true for writing a full track at one time, that is, all copies of CP 22 are chained 
together. 
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Assuming the use of a file with no overflow, CP 23 is used by SETL to locate the proper 
record; then CP 22 is used to read the recqrd; CP 24 then reads the next level of 
track-index entries and schedules the next CP 22. 


Figure 25 illustrates the operations of one scan mode channel program (CP 23). Channel 
program 23 is used by SETL to position to the first record of the specified file. For this 
example, it is assumed that no master indexes are being used. 
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Figure 25. Scan Mode Channel Program 23 


Scan Mode Control Blocks and Work Areas 
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Information about the 12s and processing requests is carried in various control 
blocks, work areas, and quet es. The address relationships of these areas to each other 
and processing routines and channel queues are shown in Figure 26. 
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Scan Mode Close Phase 


The QISAM scan mode close phase has only one close executor, module IGG02029, 
which is entered from the I/O support Close routine. Module IGG02029 uses the 
ESETL routine to terminate scanning and clear the buffer queues. (Refer to “ESETL 


Routine” and “Buffer Control Techniques.’’) 


Even if the user has already issued an ESETL, the close executor issues another one. The 
close executor then awaits completion of any outstanding writes. If any of these writes 
are unsuccessful, the user synchronous error is entered. The user must return to the close 
executor to complete the release of buffers and work areas to the operating system. 


If the oustanding writes or the return from the synchronous error routine to the close 


executor have been completed successfully, then the close executor: 


1. Returns all buffers to the buffer pool. 
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. Releases the work area. 
. Updates the DCB tag deletion count, DCBTDC. 
. Updates the number-of-overflow-references field in the DCB, DCBRORG3. 


nan &-& Ww WN 


. Moves the DCB fields that may have been changed during processing from the DCB 
field area (DCBFA) to the DCB if the data set was opened for DISP=SHR. Frees the 
DCB field area if this is the last DCB open for the data set. The local and global 
services locks are held during the processing of the DCB field area. 


When finished, the scan close executor, module I1GG02029, passes control to the ISAM 
common close executor. 


Basic Indexed Sequential Access Method 


The basic indexed sequential access method (BISAM) provides direct storage and 
retrieval of the records in an indexed sequential data set. The READ K macro instruction 
permits the retrieval of a logical record from virtual storage by its record key. The READ 
KU and WRITE K macro instructions, when used together, provide the ability to update 
logical fixed-length (or variable-length if the record length does not change) records in 
place. The WRITE K macro instruction, when used without READ KU, allows the user 
to replace unblocked fixed-length (or variable-length if the record length does not 
change) logical records. The WRITE KN macro instruction is used with the READ KU 
macro instruction to update variable-length records when the record length can change. 
The WRITE KN macro instruction allows the user to insert new logical records into the 
data set or to replace a variable-length logical record with one having the same key and 
possibly a different record length. 


Because storage and retrieval of records are direct in BISAM, the BISAM routines are not 
able to read ahead as the QISAM scan mode Get routine can. Consequently, the user 
must issue a WAIT or CHECK macro instruction in order to determine whether a read 
operation has been completed. 


As in QISAM, there are three phases of BISAM routines: 
e The open phase 
e The processing phase 


e The close phase 


BISAM Open Phase Operations e 


The first BISAM open executor is entered from the last common ISAM open executor. 
The BISAM open executors load the BISAM processing routines, selecting the 
processing phase modules according to the processing program options. Particular 
processing modules are selected depending on such options and considerations as: 


e The number of levels of index to be searched on the direct-access device (NLSD) 
e Whether the records are blocked or unblocked 

e Whether work areas are supplied by the user or by the access method routines 

e Whether or not write-checking is to be used 


e Are buffers controlled by the user program or by the ISAM dynamic buffering routine 
(module IGGO19JT) 


e The user’s intent to add new records to the data set with the WRITE KN macro 
instruction 
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Some of these considerations also affect the sequence in which the BISAM open r* 
executors are called. Figure 27 illustrates the flow of control through the BISAM open 
executors. 
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Figure 27. BISAM Open Executors 


r 


Those BISAM open executors that initialize channel programs inctude conversion to a 
non-RPS state as part of their processing. 


BISAM Open Phase Organization 


When a DCB is being opened for BISAM processing, one or two of the validation 
modules are selected to correlate format-2 DSCB and DCB fields. The validation 
modules (IGG01920, IGG01922, and IGGO1950) are also used in open processing for 
resume load and scan mode (Figure 28). 


If the records are fixed-length records, modules IGGO1920 and IGGO01922 are selected v 
for validation and initial BISAM open processing. 


a 


These two modules reset certain fields in the DCB and format-2 DSCB, which may be 
incorrect if the data set was previously closed improperly. , i ™ 





64 MVS/XA ISAM Logic | = 


ee 


= 


—_ 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


If variable-length records are used, module IGGO01950 is selected to merge end pointers 
from the format-2 DSCB to the DCB and adjust, if necessary, the independent overflow 
control information in the DCB. 


ce 
IGG01950 is the VLR counterpart to modules IGGO1920 and IGGO1922. It is the first 
BISAM open module entered when variable-length records are being added. 


The validation module may not be executed, although it will be entered, if the user has 
specified that the data set may be shared by other tasks (DISP=SHR). It will not be 
executed in that case if another DCB has already been opened for the data set and a 
DCB field area (DCBFA) set up for the purpose of maintaining the DCB fields. (See 
“The DCB Integrity Feature” under ‘““The ISAM Common Open Executors”’ and the 
description of the DCBFA.) 


Module IGG0192W or IGGO192H receives control from modules IGG01920 and 
IGG01922, or module IGGO01950 during the opening of a DCB for BISAM. 


BISAM Open Executor IGG0192H (Fixed-length records) or IGG0192W 
(Variable-length records) 


1. Moves the format-2 DSCB fields needed for BISAM into the DCB. 
2. Obtains and structures the work areas and provides pointers to the work area. 
BISAM Open Executor IGG0192P 


1. When the high-level indexes are to be searched in virtual storage, module IGGO192P 
schedules CP 87 to read the high-level index into the user-specified work area. The 
work area is specified in the DCB at DCBMSHI. Channel program 87 is contained in 
module IGGO192P. 


2. After reading. the high-level index into the user work area, module IGGO192P saves 
the address of the last active entry in the high-level index. 


BISAM Open Executor IGG0192I 


1. Selects and loads the proper privileged module, according to the options specified in 
DCBMACRF by the user. (See Figure 35 for the privileged macro-time module. ) | 


2. Selects, loads, and initializes CP 1 when cylinder and master indexes are to be 
searched on the direct-access device. 


3. Selects, loads, and initializés CP 2 when the cylinder index is the highest level index to 
be searched on the device. 


4. If an RPS device is being used, IGGO192I saves and restores the high-order byte of 
DEBDISAD when storing the address of the privileged macro-time module. (See step 
1.) This is done to preserve the RPS bits at DEBRPSID. 


5. This module also initializes RPS fields in the DCB work area. 

6. Initializes the error queue counter to 2(NCP) + DCBBUFNO. 

BISAM Open Executor IGG0192K (READ K, READ KU, WRITE K) 

1. Selects and loads CP 4, CP 5, CP 6, and CP 7; initializes these channel programs. 





2. Selects and loads the nonprivileged macro-time routine, module IGGO19JV, for _ 
READ K, READ KU, and WRITE K. Se 


3. If dynamic buffering is specified, loads the dynamic buffering module, IGGO19JI. 


4. If RPS is used and the dynamic buffering module loaded, IGGO0192K also sets bit 3 of 
DEBRPSID. 
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BISAM Open Executor IGG0192L (WRITE KN) 


1. Loads the set of WRITE KN channel programs needed with the data set being 
_ processed —blocked or unblocked records, user work area or system work area, etc. 
(See BISAM channel programs, Figures 40-52.) 


2. Loads the nonprivileged macro-time routines for WRITE KN, module IGGO19JW. 
3. Initializes CP 8 and CP 10B. - 


BISAM Open Executor IGG0192M (WRITE KN with Fixed-length records) or 
IGG0192X (WRITE KN with Variable-length records) 


Initializes CP 14, which is used to update the cylinder overflow control record (COCR) and 
writes overflow records. There are six different versions of this channel program; these are 
described in “Appendix B. ISAM Channel Programs.” 


BISAM Open Executor IGG0192Q (WRITE KN) 
Initializes CP 1 or CP 2, CP 10A, CP 15, CP 16, CP 17. 
BISAM Open Executor IGG01920 (WRITE KN, Fixed-length records, User work area) 


Initializes CP 12 or CP 13 series, and CP 123W, deletes skeleton channel program 
modules. 


BISAM Open Executor IGG0192N (WRITE KN, Fixed-length records, system work area) 
Initializes CP 9 series or CP 11 series; deletes skeleton channel program modules. 


BISAM Open Executor IGG0192Z (WRITE KN, Variable-length records) 


Initializes CP 12AV, CP 12BV, and CP 123WV;; deletes skeleton channel program 
modules. 


BISAM Open Executor IGG0192J 


1. Module IGG0192J selects and loads the proper appendage modules and one 
asynchronous module. Refer to the BISAM appendage and asynchronous modules 
tables shown in Figures 37 and 38. 


2. Initializes the interrupt request block (IRB) used by the asynchronous routine. 


3. If any of the RPS bits at DEBRPSID in the DEB are set, IGG0192J loads the RPS 
SIO appendage, IGGO19JH. 


During processing, if bit 3 of DEBRPSID is on, control is passed to IGGO19JH. 


e 


BISAM Processing Phase Operations 
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BISAM processing is performed by channel programs that read and search indexes, 
prime-data tracks, and overflow chains. They also write prime-data and overflow records 
and index entries. The channel programs are set.up and controlled by the BISAM 
processing routines. 


All BISAM READ and WRITE macro instructions enter a nonprivileged macro-time 
routine, which enters a privileged macro-time routine that executes in supervisory state. 
The privileged routine returns to the nonprivileged routine upon completion. The 
nonprivileged routine then starts a channel program, if possible, and returns control to 
the user. 


When a channel program ends, the I/O supervisor passes control to an appendage 
routine that analyzes the manner in which the channel program ended and determines 
the action to be taken as a result. This involves either an EXCP return to the I/O 
supervisor or the scheduling of an asynchronous routine. The overall control flow 
through these routines is shown in Figure 34. 


‘ 
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The user can supply buffers or use the dynamic buffering option of BISAM. In the latter case, 
the dynamic buffering routine obtains and frees buffers for each processing request. 


Gs. we 
P) . 


A check routine is available to all BISAM requests to allow the user to analyze 
processing errors. od 


Information about the data set and the processing requests is communicated among the 
processing routines and the channel programs in control blocks, work areas, and queues. 
This section describes the processing routine logic, the flow of control.through the 
channel programs, and the relations of the data areas to each other and to the processing 
routines and channel programs. 
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Descriptions of the channel programs are in “Appendix B. ISAM Channel Programs.” 
‘Data Areas” contains detailed layouts of the data areas. 


An Example of BISAM Processing Flow 


Whenever a BISAM macro is issued, a nonprivileged macro-time module is entered. In 
this example the nonprivileged module entered will be IGGO19JW after a WRITE KN 
macro instruction is issued. + 


1. The WRITE KN is issued from the processing program. 


2. The nonprivileged module is entered; module IGGO19JW issues an SVC 54 to gain 
the local lock and link to the privileged macro-time routine. In the case of a WRITE 
KN without READ K, WRITE K, or READ KU, the privileged routine module 
entered is IGG0O19JX. (See Figure 35.) 


3. Module IGGO19JX: 
= a. Initializes the IOB. 


b. Determines if another WKN is in progress; if so, the IOB is added to the 
unscheduled queue and the unscheduled switch is set on. 


c. If another WKN is not in progress and if it is necessary to search the high-level 
index in virtual storage, the following operations are done: 


| (1) The first WKN channel program is initialized. 


(2) The Seek address for the channel program is determined, using the 
DCBFTHI field. 





(3) If the track index is the highest level of index (this is assumed for this 
example), the appendage code is set to 8. 





4. Channel program 8 is initialized—CP 8 is used to determine where the new record 
should be inserted. 


5. Return to the SVC 54 issued by IGGO19JW. 
6. The SVC 54 exits to the original nonprivileged module. 


7. Module IGGO19JW tests the unscheduled switch; if it is set, return is made to the processing 
program. If the unscheduled switch is off, an-EXCP is issued using the IOB just created. 


8. When the channel program ends, the appendage routine uses the appendage code in © . 
the IOB and the appendage vector table in the appendage module to select the needed | 
appendage routine for this particular channel program. 


Privileged Macro-time Routines 


A privileged macro-time routine (shown in Figure 29) schedules the first channel 
program for a given macro instruction. BISAM has several modules of privileged 
macro-time routines (refer to Figure 35). However, no more than one of these modules 
is loaded into storage by the BISAM open executor, [IGG0192I, for a single DCB. 


Selection of the macro-time routine module to be loaded depends on the BISAM macro 

instructions specified in the DCB, the record format, and the number of levels of index men 
searched on a direct-access device (rather than searched in virtual storage). These factors 
determine the choice of channel programs needed in a macro-time routine. 


A nonprivileged macro-time routine enters a privileged macro-time routine by means of ! 
an SVC 54 instruction to gain supervisory state and obtain the local-lock. If the IOB . _ | 
being reused has a dynamic buffer associated with it, the buffer is returned to the | 
dynamic buffer pool. 
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Figure 29. Privileged Macro-time Routines 
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The local lock is held upon entry to IGCOOOS5D (SVC 54 routine) by virtue of having 
been specified in the SVC table. A branch entry to DEBCHK is taken in IGCOOOSD to 


‘validate the DEB address contained in the DCB. If the DEB address is valid, a branch 


entry to GETMAIN is taken to obtain storage (subpool 230, storage protection key 5). 
for a protected save area. The validated DEB address is stored in this save area and 
makes unnecessary the issuance of a DEBCHK when an address vector in the DEB is 
used. The storage for this save area is freed prior to returning to the nonprivileged 


routine. 


we 


For any read or write request, the routine checks the error queue and the update queue 
to see if any existing IOB refers to the data event control block (DECB) of the present 
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e : request. If so, the old IOB is reused for the current request. If the IOB being reused has a — 
2 _ dynamic buffer associated with it, the buffer is returned to the dynamic buffer pool ; 
Z unless the request requires a dynamic buffer. If no IOB is found that refers to the DECB 
oe e of the present request, and a dynamic buffer must be assigned to the request, 


DECBAREA is zeroed to force the assignment of a dynamic buffer in function 1 of the 
/ dynamic buffer module (IGGO19JI). 


When a WRITE K macro instruction is.issued after a READ KU, both with the same 
DECEB, an IOB for the DECB should be on an update queue (as the result of the READ 
KU). If the IOB is not on the update queue, an invalid request condition exists and the 
privileged routine returns to the calling nonprivileged routine. Otherwise, the privileged 
routine for the WRITE K associated with a previous READ KU removes the [OB from 
the update queue. In all other cases, the routine constructs an [OB for the request. 


Subsequently, the privileged routine attempts to schedule the first channel program 
needed for the user’s request. If the channel program is available and the high-level index 
is to be searched in virtual storage, the routine performs this search. If the search is 
unsuccessful, a record-not-found condition exists and the routine posts the DECB as 
complete, sets the appropriate exceptional condition bit in DECBEXCD, and returns 
control to the nonprivileged routine. (Searching is always successful in the case of 
WRITE KN.) If the search is unsuccessful or no search in virtual storage is necessary, the 
routine determines the first channel program to be scheduled. If it is available, the 
routine schedules it. If it is unavailable, an unscheduled condition exists, and the routine 
queues a request for the channel program by placing the IOB on a queue called the 
unscheduled queue. The routine then returns to the nonprivileged routine. 


A special case exists if the WRITE KN macro instruction is being used with other READ 

or WRITE macro instructions, because WRITE KN can change indexes and record fox 
positions. Possible conflicts between these macro instructions are avoided because 

channel programs are not scheduled if another WRITE KN, WRITE K, READ K, or 

READ KU has been scheduled but not completed, or if a READ KU has been completed 

but a FREEDBUF or a WRITE K for that DECB has not. The WRITE KN channel 

programs are not scheduled if there are IOBs on the update queue, or if there are IOBs 

on the unscheduled queue for reasons other than those associated with WRITE KN. 

Similarly, WRITE K, READ K, and READ KU are not scheduled if a WRITE KN has 

been scheduled but not completed, or if a previous WRITE KN cannot be scheduled. 





Note: Entry to the privileged routine from the’ asynchronous routine is also possible. In 
this case, the return will be to the asynchronous routine. 


Nonprivileged Macro-time Routines a 


There are two modules of nonprivileged macro-time routines. (Refer to Figure 36.) The 
READ K, READ KU, and WRITE K macro instructions link to one routine and the 
WRITE KN macro instruction links to the other. The nonprivileged routine is shown in 
Figure 30. 


If the user has specified a record length ina READ K, READ KU, or WRITE K macro 
instruction, the respective macro instruction routine checks the record length specified 
against the logical record length supplied by the user in the DCB (DCBLRECL). If the 
length specified in the macro instruction is invalid or if the user has specified a record 
length ina WRITE KN macro instruction, the nonprivileged macro-time routines set the 
record length check indicator in the DECB exceptional condition code field 

(DECBEXCD1) and return control to the user. Otherwise, an SVC 54 is issued to link 

to a privileged macro-time routine. The privileged routine, upon completion, returns to FOX 
the nonprivileged routine. | 


If no channel program was scheduled, the nonprivileged macro-time routine issues the 
EXCP and returns to the user. When the channel program is completed, an I/O 
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Figure 30. Nonprivileged Macro-time Routines and SVC 54 


interruption takes place and the I/O supervisor links to an appendage routine. 
(Appendage routines are described in the BISAM “‘Appendage and Asynchronous 
Routines”’ section.) 


If no channel program was scheduled because of an invalid request, a no-record-found 
condition, or an unscheduled condition, the nonprivileged routine returns to the user. In 


the case of an invalid request, the routine posts the DECB as complete and returns to the 
user. 


Appendage and Asynchronous Routines 


The BISAM appendages and asynchronous routines are shown in Figure 31. The -... | 


asynchronous modules are listed in Figure 37; the appendage modules are listed in Figure 
38. 


Appendage routines determine the action to be taken when a channel program ends. 
Asynchronous routines perform that action except in certain cases, which are explained 
below. Appendage modules consist of an appendage vector table and a group of 
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Figure 31. BISAM Appendage and Asynchronous Routines 










appendage routines. Asynchronous modules consist of an asynchronous vector table and 
a group of asynchronous routines. 


When a channel program ends, a general appendage routine uses a combination of the 
appendage code in the IOB and the appendage vector table for the module to select the 
appropriate appendage routine. A list of appendage and asynchronous codes appears under 
“Diagnostic Aids.” 
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If the channel program is complete, the appendage routine schedules an asynchronous 
routine that sets up the next channel program. If the channel program is not complete, 
the appendage routine returns to IOS/VS to reschedule that channel program. 


If the channel program did not end in error, the action taken depends on whether (1) it is 
the final channel program needed to satisfy the user’s request, (2) an additional channel 
program is needed to satisfy the request and no other requests are waiting for the 
channel program just completed, or (3) neither-of the above conditions exists. 


In the first case, the appendage routine schedules an asynchronous routine to report 
completion to the user. If the data set is shared (DISP=SHR), the DCBFA (DCB field 
area) is reset as needed before completion is posted. In the second case, the appendage 
routine schedules the additional channel program by a special return to the I/O 
supervisor. In the third case, the appendage schedules an asynchronous routine which in 
supervisor. In the third case, the appendage schedules an asynchronous routine, which in 
reschedules the channel program just completed for a waiting request. 


If the present request used a dynamic buffer, the address of the buffer is saved in the 
JOB before the JOB is placed on either the update or error queue. 


The first time a channel program ends in error, the appendage routine returns control to 
the I/O supervisor to retry the operation. If the I/O supervisor finds the error is 
permanent, it reenters the appendage routine, which schedules an asynchronous routine 

to report the error to the user and place the request on the error queue. 


Upon entry into an asynchronous routine, the I/O supervisor obtains the validated DEB 
address from the RQE. The local lock is obtained. Main storage for a protected save area 
(subpool 230, protection key 5) is obtained and the validated address is stored there. 
This establishes a common interface between the privileged routines and the 
asynchronous and SVC 54 routines. 


Dynamic Buffering Routines 


The READ K and READ KU macro instructions require an area into which a block can 
be read. The user may supply this area or use BISAM routines to provide the area 
through the dynamic buffering option of the macro instruction. Figure 32 shows the 
dynamic buffering routines. 


When the dynamic buffering option is used, BISAM routines telease the buffer when a 
corresponding WRITE K macro is completed. If no WRITE K is issued, the processing 
program may release the area obtained with dynamic buffering fora READ K or READ 
KU by issuing a free dynamic buffer (FREEDBUF) macro instruction. 


Also, the privileged macro routine automatically releases the buffer if a READ macro 
instruction is followed by a WRITE KN or another READ. The buffer is released, 
reusing a DECB, without an intervening WRITE K or FREEDBUF. 


The dynamic buffering module contains two routines. The first, called function 1, 
obtains buffers in response to the dynamic buffering option of a READ K or READ KU 
macro instruction. The second routine, called function 2, frees the buffers. 


Function | is an appendage routine entered by the I/O supervisor just prior to executing 
the scheduled channel program. When used by the FREEDBUF macro instruction, 


function 2 is considered a macro-time routine. When used on completion of a WRITE K.. * 


macro instruction, function 2 is considered an asynchronous routine. The function 2 
routine of IGGO19JI, when executed from FREEDBUF, also frees any JOB on the error 
or update queue that is associated with the DECB, regardless of whether adynamic 
buffer is also associated with the DECB. : 


Rather than returning to IOS/VS, IGGO19JJ passes control to the RPS SIO appendage 
(IGGO019JH) if bit 3 of DEBRPSID is set. See Figure 32, Part 2. 
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Figure 32 (Part 2 of 2). Dynamic Buffering Routines 





A description of the BISAM dynamic buffering buffer control block appears under “Data 
Areas.” 
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The check routine module (shown in Figure 33), loaded when check is specified in the 
DCBMACKRF field, gets control each time the user issues a CHECK macro instruction. 
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Figure 33. BISAM Check Routine 
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The check routine examines the DECB exception code (DECBEXCD) fields. If a 
permanent error has been posted, it searches the error queue for the corresponding IOB. 
The check routine then either gives control to the user’s synchronous error (SYNAD) 
routine or, if the user has no SYNAD routine, issues SVC 55 (EOV) to request an 
ABEND with a code of 001. 


Upon entry to the SYNAD routine, register O contains the address of the first sense byte of the 
IOB (sense information is valid only when a unit check has occurred) and register 1 contains the 
address of the DECB. In the SYNAD routine, the user can issue a SYNADAF macro 
instruction. It places all pertinent information on the request in a buffer and returns the 
buffer’s address to the user. For a description of the SYNADAF macro instruction, refer to 
Data Management Macro Instructions. 


| Macro Instructions Additional Considerations Module Names 


WRITE KN | None |{GGO19J5X 


)  NLSD=0* |1GGO19JO 
NLSD+0 1GGO19J3 


Variable-length Records IGGO19H3 


*NLSD represents the number of levels of indexing (cylinder or master indexes) that are searched 
on the device. 


















READ K, WRITE K 
READ KU with/ 
without WRITE KN 


Fixed-length Records 














NLSD=0 represents the case where the data set was allocated no more than one cylinder and has no 
cylinder or master indexes or there is only a cylinder index and it is searched in virtual storage. 





NLSD#0 means: (1) there is only a cylinder index that is searched on the device or (2) there are at 
least two levels of indexing, one of which is searched in virtual storage and the other is searched 
on the device. 


Figure 35. BISAM Privileged Macro-time Modules 
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Figure 36. BISAM Nonprivileged Macro-time Modules 
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Figure 37. BISAM Asynchronous Modules 
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BISAM Processing Phase Organization 


BISAM Channel Programs 


BISAM uses the channel programs that are enumerated below and described in Appendix 
B. The flow of control through the READ K, WRITE K, and READ KU channel 
programs is shown in Figure 40 and the flow for WRITE KN channel programs is shown 
in Figures 41 through 52. Channel program modules are indicated in Figure 39. 


Note: Figures 40 through 52 show only the normal (nonerror) flow of control through 
the channel programs. For WRITE KN, two different methods are used to add records to 
the data set. For fixed-length records with a system work area, the prime track is 
rewritten and the index entries are updated before the overflow record is written. For 
fixed-length records with a user-supplied work area and for variable-length records, the 
overflow record is written before the prime track and index entries. This requires two 
different methods for executing CP 14 as explained in “Appendix B. ISAM-Channel 


Programs.” 
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Figure 38. BISAM Appendage Modules 
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Figure 39. BISAM Channel Program Modules 
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CP 1 Used to search master and cylinder indexes. 
CP'2 Used to search a cylinder index when it is the highest level to be 
searched on a device. 
CP 4 Used to search a track index. CP 5 and CP 5W are always appended to 
this channel program. 
CP 5 ‘Used to search prime-data tracks and to read or write prime-data 
records. 
CP 5W Write-checking version of CP 5. ae 
CP 6 Used to search an overflow chain and read or write overflow records. 
CP 6W Write-checking version of CP 6. | | 
CP 7 Used to write data records when WRITE K is associated with READ | 
= i 
| 
\ 


= 
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CP 7W Write-checking version of CP 7. 


CP 8 Used to search track indexes and search prime-data tracks for the place 
to insert a new record. There are separate versions for fixed-length 
records and variable-length records. 


The following channel programs are used for insertion of fixed-length unblocked 
prime-data records when the work area is provided by the system. 


CP 9A Used to read into the work area the record occupying the position at 
which an insertion is to be made. 


CP 9B Used to read an even-numbered record after writing a record into the 
previous slot and write back the last record of a non-EOF track when 
-the number of records bumped is odd. 


CP 9BW Used instead of CP 9B when write-checking is specified. 


CP 9C Used to read an odd-numbered record after writing a record into the 
previous slot and write back the last record of a non-EOF track when 
the number of records bumped is even. 


CP 9CW Used instead of CP 9C when write-checking is specified. 


The following channel programs are used for fixed-length records regardless of whether 
they are blocked or unblocked or whether the work area is obtained by the system or the 
user. 


CP 10A Used to write a record or block to replace an EOF mark. 
CP 10AW Used instead of CP 10A when write-checking is specified. 
CP 10B Used to write an EOF mark. 

CP 10BW Used instead of CP 10B when write-checking is specified. 


The following channel programs are used for insertion of fixed-length prime-data records 
into blocks when the work area is provided by the system. 


CP11A Used to read into the work area a block to be bumped. 
CP 11B. Used to write back a rearranged block. 
CP 11BW Used instead of CP 11B when write-checking is specified. 


The following channel programs are used for insertion of fixed-length unblocked 
prime-data records when the work area is supplied by the user. 


CP 12A Used to read all records from the track following the slot into which a 
new record is to be inserted. 

CP 12B Used to write a new record followed by the records read by CP 12A. 

CP. 12C Used to write a new record with a key identical to that of a record 
which, although logically deleted, is still physically present on the track. 

CP 12CW Used instead of CP 12C when write-checking is specified. 


The following programs are used for insertion of blocked or unblocked variable-length 
records. 


CP 12AV Used to read all records from the track following the slot into which a 
new record is to be inserted. 
CP 12BV Used to write a new record and the records read-by CP 12AV.’ 
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() The following channel programs are used for insertion of fixed-length prime-data records 
on into blocks when the work area is provided by the user. 


CP 13A 


CP 13B 
CP 13C 


CP 13CW 


Used to read all blocks from the track following and including the slot 
into which a record is to be inserted. 


Used to write back the rearranged blocks read by CP 13A. 


Used to write back a block if the insertion is a record with a key 
identical to that of a record which, although logically deleted, is still 
physically present within the block. 


Used instead of CP 13C when write-checking is specified. 


The following channel programs are used regardless of whether records are fixed-length 
or variable-length, blocked or unblocked, or whether the work area is obtained by the 
system or the user. 


CP 14 


( , CP 14W 


CP 15 
CP 16 
CP 17 


CP 17W 
CP 87 
CP 123W 


CP 123WV 


_~ 


" entry or in a higher-level index entry. 


Used to update track-index entries, update the cylinder overflow control 
record (COCR), and write overflow records. The six different setups for 
this channel program are explained in ‘““Appendix B. ISAM Channel 
Programs.” 


There are separate versions for fixed-length records and for 
variable-length records. 


For variable-length records and fixed-length records with a user-supplied 
work area, CP 14 is divided into two parts. Part I writes the overflow record 
and Part II updates the COCR and index entries. See “Appendix B. ISAM 
Channel Programs’”’ for details. : 


Used instead of CP 14 when write-checking is specified. 


Used to read in the cylinder overflow control record and the overflow 
track-index entry when a new record is added to the end of a data set. 


Used to search an overflow chain for the record that logically precedes 
or is equal to the new record to be added, or the last record in the chain. 


Used to change the key in a normal or normal-and-overflow track-index 


Used instead of CP 17 when write-checking is specified. | 
Used to read a high-level index into virtual storage. 


Addendum to CP 12A and CP 12B or to CP 13A and CP 13B when 
write-checking is specified (fixed-length records). 


Addendum to CP 12BV when write-checking is specified 
(variable-length records). 
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BISAM Control Blocks and Work Areas 


Information about the data set and processing requests is carried in control blocks, work 
areas, and queues. The address relationships of the control blocks to the processing 
modules, work areas, buffers, channel programs, IOB, and channel program queues are 
shown in Figure 54 and Figure 55. Figure 53 shows the elements of a BISAM READ or 
WRITE request. 


<2... 94 MVS/XA ISAM Logic ee 
_ rs ie > 





“Daa 
‘i 


as 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 ae 


4 





' 
t 
~ 


| eee ee, 
il 


DECB 


OCB 


Processing Channel 
Modules Program 


[sete meee 


Control Blocks 


and Work Areas 





Figure 53. Elements of a BISAM READ or WRITE Request 





Method of Operation 95 


Pal 





we document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


f 


%, 










DCBBUFCA 










Full-track work area 
for WRITE KN 
DCBMSWA 
DCBMSHI 
DCBWKPT1 
DCBWKPT2 
DCBWKPT3 






Storage area for highest level 
index (it searched in storage} 












DBC Work Area 


DCWFCP4 
DCWFCP7 
DCWFIOBU eel 
DCWLIOBU Laqueue 
DCWFUPDI | 

i8 DCWLUPDI 

















T There ts one copy af 
| CP 1/2 and the WRITE 
| KN CPs. They are 
described by DSECTS 2 
in processing module 
and addressed by using 
[eee sas as tates | DCBWKTP1/3 as a 
base register. 





queue 





| 
| 
| CP 1/2 
| 















DCWFIOBE [Error 
DCWLIOBE [queue 
ip a DOCWDCBFA 


| cP 8 

| followed by 

| other required 

| WRITE KN CPs 


— ee eee 


fate 





Butfer Control Block 


BCBFIOB [IOBs ee 

BCBLIO8 uffers 

BCBNAVB [Next al 
vailable 





DCB Field Area 








Figure 54. BISAM Work Areas and Queues 





Hs 96 MVS/XA ISAM Logic , 
= “Sa sy “ 






= = — ee eee 





aS 
SS 
‘ 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0— 


oe ee Ns State tt, Se 


Dynamic 
buffering 
moadute 


Check module 








DCBDEBAD 


DCBSETL 


DCBLRAN 
Nonprivileged 


macro module 
(Non-WRITE KN} 


Nonprivileged 
macro module 
{WRITE KN) 


DCBLWKN 





DCBWKPT2 





l 
ee ee er ere a a, 











































DCB Dynamic 
wade work area buffering S510 
-20 t SIO appendage (E) (See Figure 54} appendage 
-18 t CE appendage table 
14 f AE appendage table 
0 
iv 8 DEBIRBAD 
18 DEBDCBAD 
a ic DEBAPPAD ) 
Appendage Appendage 
module module 
(part 1} {part 2) 
2C T ISAM extension 
0 DEBDISAD 
4 DE BWKPT4 (A) 
8 DEBWKPTS (8 } Privileged RPS SIO 
Cc DEBFREED & aed spaendase 
10 DEBRPSIO & module madute 
14 DEBSIOA2 &) 
[odie 10 aie 
IRB : (lf dynamic buffering 
is not used.) 
Cc RBEP Acvnchiaoeus Channel program 
edule splitting SIO 
7 appendage | 
{created dynamically by Open) s | 
Note: The three SIO appendages (channel program splitting, dynamic buffering, and rotational position sensing (RPS)) and the DEB fields (DEBSIOA, 
DEBSIOAZ2, and DEBRPSIOQ) form a push down list controlled by the presence or absence of the appendages. The priorities of the appendages are channel 
program splitting, dynamic buffering, and RPS in that order. The order in which the fields are filled is DEBSIOA, DEBSIOA2, and DEBRPSIO. As an 
example: if only the dynamic buffering and RPS appendages are present, the address of the dynamic buffering appendage will be in DEBSIOA and the 
address of the RPS appendage will be in DEBSIOA2, with DEBRPSIO remaining unused. 
: . J 
Figure 55. BISAM Control Blocks and Processing Modules 
PA 
BISAM Close Phase 
Oe 
The BISAM close executor (module IGG0202A) is entered from the O/C/EOV close 
routine. It terminates outstanding I/O requests and releases storage obtained for the’ 
work area and for channel programs. If dynamic buffering was used, it releases the 
system-obtained buffer area. If the data set was opened for DISP=SHR, it moves the 
DCB fields that may have been changed during processing from the DCB field area ~~. 
(DCBFA) to the DCB. If this is the last DCB open for the data set, it frees the DCB 
field area. The BISAM close executor passes control to the ISAM common close 
executor. | se | 
When a branch is to be taken on an address supplied by the DEB; a protected (and we 


validated) DEB address is obtained from the DCB copy in the O/C/EOV work area. 
va 


A 
ye ef % 


Method of Operation 97 


° | 





= 


eG 


“~* 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894:0-—- 


PROGRAM ORGANIZATION 


7 
a 
a 
I 
a 
f 
ff 
& 
Wa 
Lo 
y 
. ‘a> “E> 
=2 
of 
7 

We ye 

; ra 

va 
A i ; 
ye hei 
ee Program Organization 99 





ee 


‘ 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 % 





I1GGO192A 


Al Jk. 
( ENTRY 3 


SCAN DSCB'S FOR 
PRIME, INDEX, AND : 
OVERFLOW EXTENT ENTRIES 


~ s 5 
al arr I if 
ee a ‘ “ 





ISLOOA3 
Bl 


SET FORMAT 1 : 
DSCB_ AND UCB + 
POINTERS 


9 


[SLOOB2 
C1 ~2 Cc 






YES INDICATE PRIM 
























YES INCREMENT E 
PRIME EXTENT PRIME EXTENT RPS DEVICE ON RPS DEVICE 
COUNTER 
0 O = 
: 
t 
| 
ISLOOC 2 ISLOOB3 
D1 D2 : D D4 
YES INCREMENT 
INDEX EXTENT INDEX EXTENT RPS DEVICE 
COUNTER 





O YES () 
E3 


INDICATE 
OVERFLOW ON RPS 
DEVICE 


ISLOOD2 
E1 





E5 
SET WRITE CHECK 
OPTION 








E2 
INCREMENT 
COUNTER 






















OVERFLOW YES 
EXTENT 


()-+ 


ISLOOE3 






~_ ee 









F3 


INDICATE ot 
OVERFLOW ON RPS | 
DEVICE 


Fl 


DECREMENT 
DSCB_ EXTENT 
COUNT 













FORMAT 1 DSCB 





MORE 
EXTENTS THIS 
DSCB 


oe fd 





ISLOOF3 ISLOOF41 
H1 H 3 H 
NO : ADVANCE DSCB ANY MORE NO 
DSCB'S | 


FORMAT 3 DSCB 





YES 






AA2 
Bl 


I SLOOH 3 


ISLOOJ 3 ISLOOHS 5 | 


, RESET EXTENT 
YES COUNTER AND te om 
OFFSET -FOR =~, 
FORMAT3 DSCB ~ 






2 
ADVANCE 
EXTENT 









YES 





SET EXTENT 
FORMAT=3 DSCB 





FORMAT - 1 


L© LO 


Chart AAl. First Common Open Executor (IGG0192A) (Part 1 of 3) 





DSCB 


COUNTER = 9 














tee 


Program Organization 101 


4 
+ 








al 
“This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





DETERMINE NUMBER 
OF MODULES TO 
BE LOADED 






















ISLOOE2 ISLOOD11 
B2 B3 oe 
SETL OR INCREMENT 
SCAN MODE SETL K/I ODULE COUNTER 


ISLOOD12 ISLOODS 
C2 


aa 
ml © L® 


ISLOOF2 










EAD OPTIO 
SPECIFIED 


YES INCREMENT 


PUTX MODULE COUNTER 







ISLOOF21 


D2 











WRITE INCREMENT DATA SET 
UPDATE OPTION OBULE COUNTER SUCCESSFULLY 
SPECIFIED BY 2 LOADED 


D4 : 
DS 
CODE = 3B ——_—_—__—__» ABEND EXIT 
UNSUCCESSFUL 
LOAD 












ISLOOE2A 
FEI E 
INCREMENT YES 
MODULE COUNTER SCAN MODE 


ISLOOE2B 
Fl 













NO WRITE KEY 
NEW OPTION 


SPECIFIED 





INCREMENT 


Ne eca ISLOOD1 





ieee az at ISLOOC1 


H4 
ABEND HS 


CODE = 30 MACRF|-————> ABEND EXIT 
INCORRECT 








UTX 
FIED 


NO 






ns 
2c 
my t 
om 
nO 





MODULE 
COUNTER STILL MOVE/LOCATE 
ZERO 
YES 


LOAD 
MODE 


2 


INCREMENT 
MODULE COUNTER 


J 
DYNAMIC 
BUFFERING 


INCREMENT 
OPTION 
SPECIFIED 





ISLOOE2E 
K 2 


INCREMENT 
ODULE COUNTER 










Chart AA2. First Common Open Executor ([GG0192A) (Part 2 of 3) 





~ a 


102 MVS/XA ISAM Logic . = 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





E& ™ 









AAJ 
B) SPACE FOR DEB 
ISLOOG2 
B2 
INCREMENT 


APPENDAGE 


ISLOOFS 


DETERMINE DEB 
SPACE 
REQUIREMENTS 





STORAGE 
SPACE FOR DEB 


6) 
COMPLETE PREFIX 
AND BASIC 
SECTIONS OF DEB 







ISLOOJ2 PI 
INITIALIZE 


APPENDAGE 
VECTOR TABLE 
FOR BISAM 


ISLOOK21 | 


COMPLETE DES . 
OVERFLOW FIELDS 










ISLOOK 3 
VARIABLE= 
ENGTH 


H3 
ADD RECORDS - 
RECORDS 










RECORDS 
BLOCKED 


O- 


ISLO1D5 
J 


LENGTH 


ISLFIXUB 






YES 


NO 


SET DCBBLKSIZE 
EQUAL TO 
BLRECL 


1 OR MORE 
PRIME EXTENTS CODE = 36 NO 
PRIME EXTENTS 


K2 | 
ABEND EXIT 


Chart AA3. First Common Open Executor (IGG0192A) (Part 3 of 3) 








PERFORM 
WHERE-TO-GO 
LOGIC 


TCTLRTN 


4 
XCTL 


GET STORAGE 
ISLOIE4 


TO: 





1GGO192B 


Program Organization 103 


y This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3 894-0 : 





1GG0192B 










B BCB 
ALIGN FIRST SET ADDRESS OF 
BUFFER ON 1ST BUFFER IN 
BISAM READ 


FULLWORD THIRD WORD OF 
BOUNDARY BCB 






| 
ISLO2C1 ISL02C2 BISAM 
B4 5 
I 


ee ae ISLO2D) , 
INIT BCB ALIGN 
FIRST BUFFER ON 
DOUBLEWORD 
BOUNDARY 


QISAM WRITE 











ISLO1G5 ai ISLO1H5 ISLO2D2 


ISLO2E) 
SCAN- DS 
LOAD BCB 
—_____» 












SET POINTER TO 
1ST BUFFER IN 
1ST WORD OF BCB 


USER SET LAST BUFFER 
BUFFERS POINTER = 0 
ADEQUATE 


CODE = 37 USER 
BUFFERS 
INADEQUATE 











ISLO2E2 
E2 


ABEND EXIT 


DCBBUFNO 
SPECIFIED 


ISLO2A1 
Fi 


SET DCBBUFNO=2 


IGGO192A 





TSLO1GS6— ISLO2A32 


GET UCB ADDR 

FOR DEB AND 
= DEVICE TYPE FOR 
DEB SET PTR TO 

1ST EXTENT ENT 











, ISLO2A11 
WRITE NO DYNAMIC NO 
SPECIFIED BUFFERING 
SPECIFIED 
YES ES 
Cs) "sa 
1SL0281 ISLO2B2 
K2 K3 
CALCULATE GETMAIN 


DCBBUFL IN 
MULTIPLE OF 6 |————» BUFFER POOL ——> 
& STORAGE FOR FROM Sere: 
BUFFERPOOL 230 


Chart AB1. Second Common Open Executor (1GG0192B) (Part 1 of 2) 





__ 104 MVS/XA ISAM Logic 
a 


A ' 
~ “, _ 











This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 








ISLO2A5 


CLEAR EXTENT 

CALCULATE; 
CYLINDERS 
NEEDED 








ISLN2A52 
E1 


LAST EXTEN 
ENTRY 








ADVANCE 
EXTENT ENTRY 
POINTER 





ISbt2tta 
Fe 











FORMAT 
1S¢ B 









Cg 


FE 
NEXT DStB 
FuRMAT 1 
Y 


“E> 







EXT DSB 
FURMAT 3 





SLUIA3 
SLOGAS _ ISLU2K 3 


4 















SET POINTER 
TO 1ST FORMAT 3 
EXTENT 


PERFORM 
WHERE-TO-GO 
LOGIC 








TCTLRTN 


H2 
XCTL ) 


TO: [GG0192C 


Chart AB2. Second Common Open Executor (IGG0192B) (Part 2 of 2) 





Program Organization AOS 


> 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26=3894-0 























SET OEVICE TYPE 
FOR PRIME DATA 
EXTENTS 


SET DEVICE TYPE 
FOR INDEPENDENT 
OVERFLOW 


ANY 
OVERFLOW 
EXTENTS 






NOINDOV 


ADDRSPC=REAL SET FIELD AREA 
AND NOT | ADDRESS IN DCB 
BISAM 


YES, 


NO 


. ® : 

f LOAD CHANNEL 
PROGRAM 
SPLITTING 


APPENDAGE 






INCREMENT USE 
COUNT 


PUT ADDRESS OF 





CHANNEL PROGRAM MERGE FORMAT-2 

SPLITTING OSCB FIELOS 

APPENDAGE IN BISAM &@-SCAN 
DEBSIOA 


NOTVIRT F3 


NO XCTL 


t 


YES 

NOTE FS: xCTL TO: %1GG01921=LOAD 

MODE; |GG01920-BISAM OR: SCAN MODE 

FIXED LENGTH RECORDS; 1GG0!1950-81SAM 

OR SCAN MODE VARIABLE LENGTH 

RECORDS ‘ ‘ 


SEARCH DOCBFA 
CHAIN FOR FIELD 


AREA FOR THIS 
DATA SET 





H3 







GETMAIN 


GET SPACE FOR 
FIELD AREA 


FIELD AREA NO 
FOUND 


UPDATE FIELD 
AREA CHAIN 





© | 
| 


Chart ACI]. Third Common Open Executor (IGG0192C) " 





* 106 MVS/XA ISAM Logic as 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





1GGO0 1920 


Al 
{ ENTRY 


COMMON a5 NOEXEC1 





NOEXEC 























T 
MOVE VALID EXECUTOR 
FORMAT—2 DSCB ENTERED FROM 
RESTART 


‘}FIELDS TO DCBFA 









DISP = SHR 









CNTINU 


MODULE LOAD 





TCTLRTN 


GET BUFFER TO D4 
VALIDATE 
, XCTL 


TO: 16G01922 . 





EGTREAD 








GHOABRND 









1 aN 
_ 











ESTART [N 
CONTROL 





EOT = END 
OF FILE 






END OF EXTENT = 33 —_> ABEND EXIT 


CODE 
RMANENT ERROR 
ADING EOF EQT 





READ PRIME DATA 
EOT 


SETLPDA 


DCAST 
BITS OK 
(LAST _TRK & 
BLK FULL) 





RENNIN 
RESTORE RESTART 
REGS, PERFORM 


YES 
WTG LOGIC FOR 





RESTART MOD 
(IGCOwOSB) 









3 
XCTL 


TO: 1GG01922 


TRKNFULL 
OK 


DCBST 
K2 K3 
SET LAST TRACK FREEMAIN 
FULL SWITCH 


=a 
(DS¢STJND = |————+| FREE BUF USED |——» 
x"O1") TO SET LAST BUF 


PADDING 









AST TRACK 
FULL 


FULL SWITCH 


Chart ADI. Fixed-length Validation Open Executors ({GG01920) 





Program Organization 107 


Ly 


Red ee fa 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26+3894-0 





1GG01922 


ENTRY 





SETLOVAD B4 










ENTRY FROM 
RESTART 


YES EOF nDeReES YES 


NO 





GET CURRENT 






SET OCB ADDRESS TABLE ENTRY SET NEW ADDRESS 
SET OPEN WA POINT ANO OCB IN FORMAT -2 
ADDRESS AODRESS DSCB 





UPDATE &#@ OF 
UNUSED TRACKS 
IN INDEPENOENT 

OVERFLOW 


POINT TO POINT _TO 
FORMAT-2 OSCB FORMAT-2 DSCB 


UPDATE & OF 
RECORDS _IN 
| NDEPENOE NT 
OVERFLOW 


LOAD PROTECTED 
O&B ADDRESS 


RESTORE DCB 


PUT HI R VALUE 
IN OCB ADDRESS 


SET DCB AODRESS 
IN OPEN*S JO08 





HI He 


YES YES 


NO NO (rs) 
CNT INU di 
NO SET VALIOATION © 
REST BIT 






{NOEPENOENT 
OVERFLOW 


YES 





Chart AD2. Fixed-length Validation Open Executors (IGG01922). 





108 MVS/XA ISAM Logic . ee 





} 


RX POK 
a 


1GG0192) 


A 
ENTRY 


ISLO4AS 
Bl 






B OPENED 
FOR OUTPUT 


TESTRKP 
Fl 










RKP 
KEYLEN 
DCBLRE 


+ 


> 
cL 


GETMALN 
OBTAIN WORK 
AREA 


(ISLCOMON} 















NO 





This document contains réstricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





3 


SET ABEND CODE 
= 38 ———_—_> ABEND EXIT 


2 
SET FULL TRK 


COMPARE 
255 

BYTES OR CLEAR 256 BYTES 

LESS TO CLEAR OF WORK AREA 
IN WORK “ 
AREA 


LAST IME 


CLEAR REMAINDER 
OF ISLCOMON 

SAVE REGISTERS FIND PRIME 
AT ISLVRSAV DEVICE TYPE 
ENTRY ADDRESS 


5 
SAVE DEV TBL 


PTR AT OCBALRAN 
& ISLOCNT. SAVE|——* 
ISLLGAP & 
ISLIGAP 


Chart AE1. First Load Mode Open Executor (IGG01921) (Part 1 of 3) - , “ 





" Program Organization 109 


f 


ate _. 8 


ISLO2G21 


ISLO3K1 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


= 




















B 
SET IOBFLAGS 


CHAINING 


f 


IF DISP= OLD & DATA SET 
OPENED FOR LOAD, USER 
INTENDS TO USE PRE- 
ALLOCATED SPACE 


ISLO3K1A 
C2 





7 











DISP = RESUME NO RESTORE 
NEW/MOD LOADING RELOAD ONLY REGISTERS 
INDICATED 





ISLO500 
ISLFCO11 
D2 


D1 
CLEAR DCBST AND 
DCBHIIOV 







D 
TEST- 
ILL OVFLO 
LINK FIT WITH 
UNBLK'D 







DCBHIRPD 
PREVIOUSLY 
CALC 'D 






RECORDS 
UNBLOCKED 

















f LARGE 
ae 
( > 


ISLFCO13 
E2 


CALCULATE _HIROV 
a {HIGHEST R_FOR 
CYLINDER 


ISLFCO12 
E4 


VARIABLE 
LENGTH 


‘a OVERFLOW) RECORDS 










ISLFCOA 


F4 








DCBHI IOV 


CALCULATE AND 
SWITCH ON 


INITIALIZE 
DCBHIRPD 


SET DCBHIROV 


YES 


ISLFCO14 
2 G3 


INDPNT 
OVFLO OPTN 
SPECIFIED 
IN DCB 


LP) a an 


ISLFCO15 
KS 












OVERFLOW O 


SET DCBHIIOV SAME DEVICE 


SET DCBOVDEV= 
Oe eee ({OVFLO 


SAME DEVICE) 











SET DCBHIIOV 
SWITCH ON 


4 








DCBDEVT= 

DCBOVDEV 

{OVFLO ON 
AM 






FIND OVFLO 
DEVICE TYPE 
ENTRY ADDR 





SET OVERFLOW _ 
RECORDS 
| OVERHEAD GAPS 


Chart AE2. First Load Mode Open Executor (IGG01921) (Part 2 of 3) 





110 MVS/XA ISAM Logic ' 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


ra 





1GG0192D 


At 
ge ENTRY 
& ) 







ISLFAO1 

CALCULATE AND 

STORE- 
DCBHIRCM 


ISLHIRT 
DCBHIRTI 








1 
GET NUMBER OF 
TRKS OF TRK 
OVERFLOW AND 
NUMBER OF TRKS/ 
CYLINDER 






ISLFAO3 ISLFBO1 7 
D1 D3 







D2 
CALCULATE 






& 










TOO 
MANY TRKS 
FOR CYLINDER 
OVERFLOW PRIME DATA 


TRACK ) 





ALLOCATOR 





YES 









ISLFBOS 


CALCULATE & 
STORE DCBHIRSH 
L OF 


(LAST R 
SHARED TRACK) ) 


TOOLONG 
EI E 


SHARED 
TRACK 
POSSIBLE 


SET ABEND CODE 
= 20 VLR 









F 3 
Fl CONTINUE TRACK 
INDEX 
ABEND EXIT CALCULATIONS 
SET DUBRIRSY = j 


ISLFBO6 
SET ISLNIRT 


ENTRY -USED IN 
CLOSE) 









H5: 













H 3 
CALC & STORE 






DCBNCRHI (STOR- TRACK, _ YES SET DCBFIRSH 
AGE LOCATIONS DCBHIRSH = 0 WET SHRED 
NEEDED TO HOLD 


HIGHEST INDEX) 


ISLFBO4 
SET DCBFIRSH 


Chart AF1. First Initial Load Mode Open Executor (IGG0192D) (Part 1 of 3) 








112 MVS/XA ISAM Logic 


. This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 








By 


ISLFOIA 
Bl B3 


INITIALIZE 
WHERE-TO-GO 


LOGIC TQ LOAD 
MODULE IGG01920 
NEXT 









SET DCBHIIOV 


RECORDS 








™ i 
c1 p> 
ISLFO1B : 
RELOOP 
RESTORE INITIALIZE 
REGISTERS, WHERE-TO-GO 
PERFORM LOGIC TO LOAD 
WHERE-TO-GO MODULE 1IGG01950 
LOGIC NEXT 
TCTLRTN 
D1 ; 
J 
XCTL 
E3 EG 
ENTRY | ENTRY 
FROM: AE1-J4 E1-J5 
AE2-J4 E2-K4, 
TOOLONG DEVRTN GETGAPS 
Fl me F 3 FS 





YES CALCULATE 


RECORD OVERHEAD 


FIND DEVICE 
ENTRY ADDRESS 3330 DEVICE 


SET ABEND CODE 
= 20 


IN DEVICE TABLE FOR 3330 DEVICE 





1 3 5 
CALCULATE 
ABEND EXIT EXIT RECORD OVERHEAD | ——————_> EXIT 


Chart AE3. First Load Mode Open Executor (IGG01921) (Part 3 of 3) 








Program Organization 111 





CLEAR DCSNLEV 
DCBRORG2 OCBNOV 
TO ZERO 


ISLFCO2 


CALCULATE 4 
SAVE 8 OF PRIME 
CYLS AT !{SLac 









MORE 
THAN ONE 
CYLINDER IN 
DATA SET 






NO 





YES 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


ISLFCO2E D2 








MORE THAN 
ONE EXTENT 
DATA SET 


NO 





‘IN 






YES 


SET OCBNLEV TO 
INOICATE 
CYLINOER INDEX 
1S NEEDED 


SET {SLO3 = 
I1SLOC (& OF 
PRIME CYLS) 








SEPARATE 
INDEX AREA 


NO 





YES 


XY 





SET MBBCCHH IN 
OCBFTHI FOR 
TRACK INDEX, 
DATA SET OF | 





EXTENT 


cm 4 


G3 





SEPARATE 
OVERFLOW AREA 


NO 





YES 


y) 












RESTORE 
REGISTERS INIT 
WTG LOGIC TO 
LOAD MODULE 
1GGO0192F NEXT 












Chart AF2. First Initial Load Mode Open Executor (IGG0192D) (Part,2 of 3) 


Ca. we 
; . 





Program Organization 113” 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





ISLFEH1 






INDEX & 
PRIME ON SAME 
DEVICE 







ISLFEHIA ; 





DETERMINE AND 
STORE DCBHIRCM 










2] 









ISLFEHN) ISLFEH2 
GET NO. OF 
GET NUMBER OF OVFLO EXTENTS 
INDEX EXTENTS (DEBNOEE) 
INDEXES IN 






D 
(DEBNIEE) OVERFLOW AREA) 






{ ISLFEH3 
£2 


DETERMINE & 
STORE M OF 1ST 
INDEX LOCATION 





TABLE ENTRY 
(ISLIXLT) 


F2 
SET UP MBBCCHH 
OF END ADDRESS 





IN ISLIXLT 
{INDEX LOCATION 
TABLE) 


ISLFEH 


SET TeERs EQUAL 
TO NUMBER OF 
PRIME CYLINDERS 
PLUS 1 


H 
STORE NUMBER OF 
TRACKS PER 
CYLINDER AT 
ISLP (IN 
ISLCOMON) 





K2 


SAVE ADDRESS OF 
INDEX EXTENT AT 
DCBWKPT5 





Chart AF3. First Initial Load Mode Open Executor (IGG0192D) (Part 3 of 3) 





114 MVS/XA ISAM Logic " 


SAVE POINTER TO 
1/0 DEVICE 
TABLE AT ISLO 





TO: 


IGGO192F, 
IGGO192ZE 


OR 


em SSeS - 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 













1GG0196C _ 
-Al 


FIXINIT 
TSTHKOO5 | EXCP31 
Bl TSTHSK B3 B4 
B2 
UPDATE DCB FROM USER INITIALIZE 
FORMAT-2 DSCB SPECIFIED YES BUFFER CONTROL | ~~ EXCP rai 
FIELDS DCBBUFNO TABLE (IOBBCT) 
TSTHKO1 
TSTHKO14 
TSTHKO2 MASKA 
C2 C3 C4 
SET DCBHMASK 
INITIALIZE 
SET ISLBUFNO = SUPPER POEL FIELD MOVE 
2 eran DEVICE MASK TO 
TO: IGGO196D ISLAREAZ + 87 
EXIT 
TSTHKO3 TSTEXIT 
D3 D4 
1GG0196D INIT RFP Brae neiRiAiee 
a OF SENDS WHERE-TO-GO 
(CURRENT NORMAL COGIC TO LOAD 
ENTRY TRK INDEX 
DULE IGGO195G 
ENTRY MODULE IGGO195 















RELOOP 
E3 E4 
EI INIT RFP BYTES 
6 INDPNT OS ISLODAT PERFORM 
INDEX AREA (CURRENT WHERE-TO-GO 
; SPEC'D OVERFLOW TRK LOGIC 
INDEX ENTRY) 
TCTLRTN 
Fl F3 F4 
SET ISLECBA, 
aera ISLECBB, ISLECBC XCTL 
be Sr Vice SIGE COMPLETE BITS 
e x ON TO AVOID : 
PREMATURE WAITS TO: 1GG0195G 
SETTYPE GETCORE 
Gl G3 
SAVE INDEX DEV GETMAIN 
TYPE (USE PRIME (OBTAIN MAIN 
NO INDEPENDENT STORAGE SPACE 
INDEX AREA) FOR (CP31) 
TEST2321 ° H3 . 
Hi ; ; ? 
NO PRIME ON ” SET UP FIRST 
2321 DEVICE IOB ADDRESS ‘ 
— CHANNEL PROGRAM 31 INITIALIZED 
USING SKELETON IN THIS MODULE 
ADJDCBIN © 
Ra is 
ADJUST DEVICE INIT CP31A TO 
ADDRESSES FOR READ KEY OF 
DEBLION IDX ENTRY INTO 
KEYSAVE AREA 
FTHIBIN K2 K3 
K INITIALIZE 
INDEX AREA YES eae cee Oke CP31B TO READ 
ON 2321 DeBETHI COUNT & DATE OF 
DEVICE LAST PRIME (INTO FIRST BUFFER 
SPECIFIED IN IOBBCT) 
(«) Pa 
aa Chart AGI. First Resume Load Open Executors (IGG0196C and IGGO0196D) = 





t 
7] 


. Program Organization 115. 
— 


€ 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





TGG601924 
A 
ENTRY 


SISOSA2 





LOCATE FORMAT 
2 DSCB 


MOVE FORMAT 2 
1DSCB FIELDS TO 
DCB 





SISO5A3 


SET WIICNOT = 
SMALLEST 
INTEGER 
CONTAINING 
BUFNO: 2 











E3 


SEE SCHEDULING 
—_<—--- RTN USE OF 
ICNOT FIELD 











SET WIICNE 
DCBHIR 


SISU5A4 
F 3 
SAVE SIv) 
APPENDAGE 
ADDRESS AT 


F4 








ANY EXTENTS 
ON RPS DEVICE 


DEBS LOAD 





3 
SET ECB AND DCB 
PTRS- WILECBAD 
W1OECBAD 
w11DCRAD 
WTODCBAD 





PERFORM 
WHERE-TO-GO 
LOGIC 





TCTLRTN 
K5 
XCTL 


CH 


‘ 


Chart AH!. Last Scan Mode Open Executor (IGG01924) 





‘116 MVS/XA ISAM Logic . oe 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 | 
{ 


_ 
eo eee 


E CP22 FOR EACH _ 
BUPFER IN SCAN MODE ; 


SISO4B2 


CALC SIZE OF 

DCB WORK AREA 

(NO. OF BUFS 

MULT'D BY LNG 
OF CP22) 







, 
' 
i 


SISO4B21 


ADD LNG OF 
CP25 TO SCAN 
DCB WORK AREA 

SIZE’ 


Cc 















SETL K_OR “YES 
TL I 


SETL SETL ID 
SPECIFIED 





SISO4C2 
E2 







E 
ADD_LNG OF 
RPS EXTENSION 
TO DCB WORK 
SIZE 


PS DEVICE YES 
USED 





SISNORPS * S{S04C21 
F2 F3 


GETMAIN 
(OBTAIN DCB 






ADD LNG OF 
VLR EXT 
(WIVLRLN) TO 
DCB WORK AREA 
SIZE 





WORK AREA 
SPACE) 





SISO4D2 3 


SET POINTER TO 

WORK AREA IN 

DCBWKPT1, CLEAR 
WORK AREA 





SISOUWE2 
H 


a CLEAR WORK AREA 

SAVE LNG OF WRK ; 

AREA (W1WPLEN) 

& NO. OF BUFS 
(WIFREEC) 












SIS04G2 


3 
LOAD (LOAD 
APPDGE CNTL 
RTN_ & READ 
APPDGES) 








tire 
: ‘ 


K 3 
RELOC'D 





Chart All. First Scan Mode Open Executor (IGG01928) (Part 1 of 4) : ° | 





7 Program Organization 117 


4 


| a pe 
. 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 










S1S04G21 
B2 BI 


LOAD_ (LOAD 
WRITE CHECK 
APPENDAGE) 









=B4 
SET WRITE CHECK 
APPENDAGE PTRS 
IN APPENDAGE 
VECTOR TABLES 






RITE CHEC 
SPECIFIED 


YES 











S1S04G22 
LOAD_ (LOAD 
WRITE 
APPENDAGE- NO 
WRITE=CHECK) 


S1S04G23 
c4 






5 
PREPARE FOR 
LOADING VAR 
LNG RECORD GET 

MODULE 


3 
SET WRITE 
APPENDAGE 
—————P POINTERS [IN . 
VECTOR TABLES 













VARIABLE 
RECORD FORMAT 


YES 









































SISLDGET 
D4 
, LOAD FIXED 
LENGTH GET 
MODULE 
i 
E4 
STORE ENTRY PT 
ADDR OF GET MOD 
AT DCBGET, STORE 
ESETL ADDR AT Maree 
DCBESETL \ 
S1SO4G27 | 
PUT THE ADDR. OF 
MODULE TO THE SETLB RTN § 
BE LOADED FOR IN THE GET MOD - 
SETL AT DCBSETL 
G G5 
PREP PTRS 
SETL K FOR LOADING 
MODULE TO BE 
LOADED 
Cc 
S$1s04G25 $1$04G26 
H4 HS 
PREPARE LOAD (LOAD 
PTRS FOR SETL MOD & 
LOADING SETL K SETL 
MOD & SETLK APPENDAGE 
~APPDGE MODULE) 
5 
ST SETL ENT PT 
hn ee 
Chart AI2. ‘First Scan Mode Open Executor (IGG01928) (Part 2 of 4) ; a ao 
118 MVS/XA ISAM. Logic + . 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





EA 


SISO4A3 
B1 


LOAD (LOAD 


CHAN PROG 
MODULE) 





S1S04B3 


MOVE CP24 INTO 


THE DCB WORK 
( AREA 















































S1S04C3 
D1 D3 
SPACE SET WIOSBIT3 TO 
BLOCKED IN BUFFERS YES INDICATE K-D 
ge os RECORDS (TEST FOR KEY AND TYPE CHAN PROG 
f \ DCBRECFH) DATA ALLOWED 
FIND FIRST SPACE 
AFTER WORK AREA 
FOR CP22 COPIES 
SIS04C34 S1S04C32 
E2 E4 
ALLOW FOR 
GET 6? PS EXT. TO RPS EXTENSION 
FACTOR FOR KEY WORK AREA SPACE IN CALC 
& DATA SPACE OF CP22 LOC'S 
O 
ADDR OF SPACE 
FOR CP'S 
oc 
$1S04C33 
MOVE_1 COPY OF 
CP22 FOR EACH 
WORK AREA 
SET WIFRLAST = | (PTR TO LAST CP22 
ADDRESS OF LASTJON FREE QUEUE) 
CP22 LOCATED 
AFTER WORK AREA oe, 
— Chart AI3. First Scan Mode Open Executor (IGG01928) (Part 3 of 4) ‘ 


: Program Organization 119 - 


—— 








' This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


SISO04G3 






SISO4G4 
Bi; B3 








ETL I _OR NO MOVE CP23 AND 
SPECIFIED SETL I CP26 INTO DCB 
WORK AREA 















SISO4H4 . 
MOVE CP25 INTO 


(W1CP25PT) 


S1S04J3 
D2 


DELETE 
(DELETE CHAN 


PROG MODULE) 











EZ 
INITEALIZE 
WTG LOGIC TO 

LOAD” MODULE 
1GGO01929 NEXT 


RELOOP 


PERFORM 
WHERE-TO-GO 
LOGIC 





TCTLRTN 


2 
XCTL 
TO: 1GG01929 


Chart Al4. — First Scan Mode Open Executor (IGG01928) (Part 4 of 4) 





120 MVS/XA ISAM Logic 





Re re ee ee 





This:document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





MODNEW 


De . 


FREEMAIN 
(FREE LOAD 


MODE CHAN 
PROG AREA) 





FREECORE ; 7 


FREEMAIN 
(FREE LOAD 


MODE WORK 
AREA) 





TESTSCAN 
D2 







D1 


MOVE LOAD MODE 
DCB FIELDS INTO 
FORMAT=2 DSCB 


On 


pel eectedlacte ITISSCAN 
MOVE FIELDS 







D3 
MOVE FIELDS - 
BAe baie TO BISAM 
FROM DCB TO 
FORMAT-2 DSCB 






SCAN MODE 
DCB BEING 
CLOSED 


YES 





MOVE FIELD FOR 
SCAN (DCBTDC) 


FROM DCB TO 
FORMAT=2° DSCB 
FORMAT- 2 DSCB 





RITEBACK 
F2 


EXCP (WRITE 
FORMAT=2 DSCB 
INTO THE 
VTOC) 


Fl 


SET STATUS BIT 
{DCBST) FOR 


RESUME LOAD 














PERMANENT 
I/O ERROR ON 
WRITE 


YES 





H3 





FREEMAIN 
(FREE DSCB 


SPACE) 


> 
EXIT 


RELOOP 


PERFORM 
WHERE-TO-GO 
LOGIC 





TCTLRTN 
K3 
XCTL 


Chart AJ2. ISAM Common Close Executor Module (IGG0202D) (Part 2 of 2) 





122 MVS/XA ISAM Logic 











This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 “LY26-3894-0 


SISCTSA 
Al 
ENTRY 


(*)+ 


SISSABI1 









B2 
EINFO AK14-A3 


INFORM USER OF 
_ ERRORS 


ANY WRITE YES 
ERRORS 





0 






SISSAA2 
Cc 


DATA_SET 
EMPTY 


HAS 
SCAN BEEN SS 
INITIATED BY 
SETL 











SISSAC3 EI SISSAC HL... 


FB AK11-Al 
ADVANCE [tr NEXT 


BUFFER -UEUE 
PRESENT BUFFER 








on | 
MOVE LOGICAL 
RECORD LENGTH 
OF CURRENT 
RECORD TO 
WICURLEN 


SISSAB 32 
CHECK AK14-Al 


CHECK FOR READ 
FRROR THIS 
BUFFER 


IF 





ERROR CHECK RTN 





SISTAB2 


en 


5) 
NDICATE SETL 
ARTED BY GET 





AK4-Al 


I 

ST 

MACRO, SET CODE|—————» START SE 
F RETRIEVA 


OR SETL B/KD 


TO END QF FILE IN 
END“OF*BUFFER RTN 





©) 


SISTAC2 










FIXED RECORDS 


SISSAD3 
H5 


PADDING 
COMPLETED 


5 
SAVE BUF ADDR 
AND KEY ADDR 
(IF KEY/DATA 


USED) FOR 
RETURN TO USER 

















Chart AK1. QISAM Scan Processing Module (IGG019HB) Get Macro Routine (Part 1 of 14) 


Program Organization=123 ° 








MOVE MODE ROUTINE 











SISSAD4 
BI B2 
ARE KEY AND MOVE KEY TO 
DATA READ USER AREA FIRST é 
O 
DATA ONLY 
SISSAD4A 







GET NUMBER OF 
CHARACTERS TO 
BE MOVED & ADDR 
MOVED FROM 


SISSAD41 | 
D1 


D2 


MOVE 256 BYTES 
OF THE RECORD 





MORE THAN 
256 BYTES TO 
MOVE 


YES 


TO USER AREA 


SISSAD4 2 


MOVE LAST (OR 

ONLY) PART OF 

RECORD TO USER 
AREA 






SISSAE3 
Fl 


F2 
SET OVERFLOW 
READ SWITCH AT 








IS THIS AN YES 


OVERFLOW READ 


DECBEXC2 FOR 
USER 





SISSAF3 
QUEUE AK10-Al 


“MOVE BUFFERS 
FROM WRITE Q TO 
FREE Q. 





SISSAE31 
G1 















SET IOB-O 





ANY 
UNWRITABLE 


10B-0 
COMPLETE BIT 
ON RECORDS 


YES 





SISSAK3 





SISSAG3 
H2 









IS IO8-I AST TRY TO 
COMPLETE BIT SCHED LOCKED 
ON BUFFERS 


Pow) 


SISSAH3 SISSAKS 


QUEUE AKI10-Al SAVE KEY 
ADDRESS AND 
MOVE BUFS FROM 
READ QUEUE TO 


USER QUEUE 


BUFFER ADDRESS 
FOR USER 





GETOUT 


K2 


K 4 
I 


IOB- 
BIT RETURN Ge 


SET 
COMPLETE 
OFF 


L© 


Chart AK2. QISAM Scan Processing Module (IGG019HB) Get Macro Routine (Part 2 of 14) 





TO: USER 





. 124 MVS/XA ISAM Logic < = 





ey 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 ‘ LY26-3 894-0 







(PUTX RTN] 
NOPUTX 


7 —B 2 
ERROR EXIT 


PUTX 
SPECIFIED 





D1 
SET PUTX FLAG 
ON_IN CP OF 
CURRENT BUFFER 
ON USER QUEUE 


PUTXOUT 


E1 5 
RETURN 


TO: USER 


Chart AK3. QISAM Scan Processing Module (IGG0O19HB) PUTX Macro Rou 


SISREA2 


AY 
| ENTRY 


RELSE RTN 













SISREA4 
EINFO AK14-Aj 


INFORM USER OF 
ERROR 


SISREA3 
B4 








YES 
WRITE Q ERROR 


SISREB3 


YES 
RELSE BIT SET 


D4 


SET RELSE BIT 
(W1OSBIT2) 


RELSE BIT SET 


NOT FOLLOWED BY 
A GET 










IS THIS 
LAST RECORD 
IN BUFFER 


SISREB2 
EOB AK11-Al 


TO | 
END-OF- BUFFER 
ROUTINE 





TO BYPASS OTHER 
RECORDS IN BLOCK 


4 
RESET CBF SO 
NEXT GET WILL 
RETURN 1S 





T 
RECORD IN BLOCK 
TO USER 


©- 


SISREC2 
H 


RESTORE 
REGISTERS 






SISRED2 


4 
RETURN 


TO: USER 





tine, RELSE Macro Routine (Part 3 of 14) 











ft 


Prograra Organizatiorl 125 


This.document contains restricted materials of IBM. © Copyright.IBM Corp. 1972, 1982 ..LY26-3894-0 





SISCTBS 
A 
ENTRY 
SISBSA2 













SVC _54 
(REFRESH DCB 
FIELDS FROM 

DCBFA) 


CNT UNU RETURN TO USER 
DATA SET 
EMPTY 
; C3) 
SISBSA3 
E1 








IS WRITE I 
PROGRESS 


SISBSB3 
Fl TEST FOR WRITE ERROR 


NO 
WRITE Q EMPTY 


YES C3) 
hs) 
1 


SISBSB2 SISBSC2 
G2 





G 


SCAN MODE 
INDICATOR ON 


(«+ 


SISBSB1 













BLOCKED 
RECORDS 


SET INVALID 


REQUEST BIT IN 
DCBEXCD1 





SISBSC 1 


SER_SYNAD 


GET USER SYNAD 
ADDRESS 
SPECIFIED 


16) 


ERROR _IN 
SPECIFYING SETL 


ABEND EXIT 


SISBSC3 





O, 


SISBSD2 
B3 


INITIALIZE CCW 
FOR CP22B 










LAST CP ON 
QUEUE 


GET NEXT CP ON 
QUEUE 


D 


BLOCKED 
RECORDS 


(=) + 


SISBSD2B 
E4 


INITIALIZE CCW 
<< FOR CP22A 







KEY AND 
DATA 
REQUESTED 


SISBSD1 ; SISBSE1 


4 
RESTORE 
REGISTERS —_—_—_——_—> SYNAD EXIT 


Chart AK4. QISAM Scan Processing Module (IGG019HB) SETL B Macro Routine (Part 4 of 14) 





~* 126 MVS/XA ISAM Logic 

























This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 







































Y 
AKS 
a WRITING FROM LAST 
SCAN NOT COMPLETED 
SISBSE3 ; 
SISBSF3 SISBSAM 
B81 B3 = 
FIND DISK ADDR WAIT ‘ 
FOR START OF 
DATA SET (FOR LAST 
INITIALIZE WRITE) 
WILPDR 
hs) 
SI1SBSG3__ S1SBSB4 SISBSB5 
SET SCAN MODE 2 EINFO AK14G-A3 
ANY WRITE 
ERRORS {INFORM USER OF 
INDEX SWITCH ON WRITE ERROR 
SISBSGI_ : SISBSC4 
SET OVERFLOW 
MODE SWITCH OFF 
SET CYLINDER 
INDICATOR ON 
I 
1S THIS 
SHARED TRACK 
SISBSH! 
SCHEDULE AK7-Al 
READ 1ST RECORD 
& TRACK INDEX 
ENTRY 
SISBSJ1 
G 
WALT 
WALT 
NECESSARY (FOR READ 
COMPLETION) ; 
0) e 


SISRSJ2 i 
ZERO HI-ORDER 


OF W1EOB TO 
FORCE ENTRY TO = 


EOB ROUTINE 










SIS8SH3 SISBSH4 SISBSHS 
J 


SET ON RELSE 3 
BIT (WIOSBIT2) 







SETL B RTN 


igual sea RESTORE RETURN 


REGISTERS 





YES TO: USER 


SISBSH3A 


KI an 
RETURN | ae 


TO: GET 


Chart AK5. QISAM Scan Processing Module (IGGO!19HB) SETL B Macro Routine (Part 5 of 14) 





ry 
ra 


Program Organization- 127 


vi 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


SISCTES 


Al 
| ENTRY 








SISESA4 
EINFO AK14-A3 


INFORM USER OF 
ERRORS 










SISESB2 
C1 


YES 


SISESB3 ae 
QUEUE AK10-Al 


MOVE 1 BUF FROM 
USER Q TO 
PUTX 








D 

FIRST 
BUFFER ON 
USER Q. PUTX 






SISESC3 
QUEUE AK10-Al 


MOVE ALL OF 
USER QUEUE TO 
FREE QUEUE 

(*")+ 


SISESD2 
F1 








EAD Bove YES 
EMPTY 


@) 
SISESD4 


READ IN 
PROGRESS 










SISESD3 
Gl 


WAIT (FOR READ) 


SISESE4 
QUEUE AK10-Al 
MOVE BUFS ON 


READ 0 TO 
FREE 8 









ZERO READ R R 
(WIREADR) FOR 
NEXT SCAN 


















SISESF2 * SISESF3 
B4 
BS 
WRITES IN WAIT (FOR 
' PROGRESS WRITES) ‘ 


SISESG2 SISESG3 
CS 


RITE RUEU 
EMPTY WRITE ERRORS 


SISESH2 







DS: 
QUEUE AK10-Al 


MOVE WRITE Q 
BUFS TO FREE Q 












MOVE BUFS ON 
PUTX QUEUE TO 
WRITE QUEUE 


SISESI2_ 
SETC4 AK13-Al 


PREPARE WRITE 
CP FOR OUTPUT 










SISESK1 
EXCP 
(BEGIN 


WRITES) 





NO 





SET OFF STATUS 
BITS, EXCEPT 
WRITE, ZERO 
W1LPDR AND 

WIWCOUNT 


SISESGIA 


SET CLOSE 
ESETL ENTERED SETL 
ENTERED FROM 
CLOSE 


SWITCH 
(WIOSBIT3) 





RETURN 


TO: USER 


Chart AK6. QISAM Scan Processing Module (IGGO19HB) ESETL Macro Routine (Part 6 of 14) 





128 MVS/XA ISAM Logic 











1 
| 
i 


FIND DISK ADDR 
FOR START OF 


DATA SET 
INITIALIZE 
W1LPDR 





SISBSG3 


INDEX SWITCH ON 





SISBSG1 Ps 
D1 


SET OVERFLOW 
MODE SWITCH OFF 

SET CYLINDER 
INDICATOR ON 








SISBSA4 
WAIT 


(FOR LAST 
WRITE) 


WRITING FROM LAST 
| SCAN NOT COMPLETED 














SISBSB4 SISBSB5 i 
EINFO AK14-A3 
ANY WRITE . 
ERRORS INFORM USER OF 
WRITE ERROR 
O E 
SISBSC4 









D 
QUEUE AKI10-Al 


| MOVE ENTIRE 
WRITE Q570 FREE 





E2= 


SET SHARED 
TRACK INDICATOR 





IS THIS 
SHARED TRACK 





(W1OSBIT2) 


SISBSH1 
SCHEDULE AK7-A]l 


READ 1ST RECORD 
& TRACK INDEX 
ENTRY 









SISBSJ1 
WAIT 


WAIT 
NECESSARY (FOR READ 


COMPLETION). 


c 





SISRSJ2 oe 
ZERO HI-ORDER 


EOB ROUTINE 









| 












SISBSH3 SISBSH4 SISBSHS 
4 
SET ON RELSE — 
SETL_B RTN BIT (W1OSBIT2) 
ENTERED FROM RESTORE |—_—__——> RETURN 
GET REGISTERS 


SISBSH3A 


y 


K1 
RETURN 


TO: GET 


TO: USER 


Chart AK5. QISAM Scan Processing Module (IGG0O19HB) SETL B Macro Routine (Part 5 of 14) 








Program Organization- 127 


2 
- 























"a ie 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





SISCTES 


A 
ENTRY 









SISESA4 
EINFO AK14-A3 


INFORM USER OF 
ERRORS 








SISESB2 
om 


YES 


SISESB3 
QUEUE AK10~Al 


MOVE 1 BUF FROM 
USER TO 
PUTX 
















FIRST 
BUFFER ON 
USER Q. PUTX 









SISESC3_. 
QUEUE AK10-Al 
MOVE ALL OF 


USER QUEUE TO 
FREE QUEUE 


(**)+ 


SISESD2 
Fl 


SISESD3 
G1 





READ IN 
PROGRESS 


WAIT (FOR READ) 





ZERO READ R 
(W1READR) FOR 
NEXT SCAN 


SISESE2 











SISESF2 * SISESF3 
B4 
BS 
WRITES IN WAIT (FOR 
PROGRESS WRITES) : 


SISESG2 SISESG3 
c4 cs 


WRITE ERRORS 


SISESH2 









=DS 
QUEUE AK10-A)l 


MOVE WRITE Q 
BUFS TO FREE Q 


QUEUE AK10-Al 
MOVE BUFS ON 


PUTX QUEUE TO 
WRITE QUEUE 





SISESJ2 
SETC4 AK13-Al 


PREPARE WRITE 
CP FOR OUTPUT 





SISESK1 





5 
WAIT ie 
WRITES) 










SISESE1 


H4 

SET OFF STATUS 
BITS, EXCEPT 
RITE, ZERO 
WILPDR AND 

wWTWCOUNT 


SISESGIA 5 
SET CLOSE 
ENTERED SETL 
SWITCH 
(W1OSBIT3) 






K4 KS 
RETURN RETURN 


TO: USER 


TO: CLOSE EXECUTOR 


1GG02029 


Chart AK6. QISAM Scan Processing Module (IGGO19HB) ESETL Macro Routine (Part 6 of 14) ; 





128 MVS/XA ISAM Logic 





! 
; 
| 
| 
t 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





S{SCTSB 


Al 
ENTRY 


B2 
YES 
END OF DATA RETURN 
oO 
BB! 
1 


SISS 


SET SCHEDULING 
BIT ON 


I 
(WIASBIT!) 


Bs 


SISSBA2 











OVERFLOW TO 
BE READ 


SISSBB2 
E NEXT RECORD GN 
‘6 SAME CYLINDER 







CYLINDER 
INDICATOR ON 


S1SSBB3 
Fl 








AT LEAST 
ONE BUFFER 
YES C3) 


(WIWDNXDM} 


SISSBB30 


SISSBB33 
ADDONE 






AST TRACK 
OF EXTENT 






SISSBB34 








INCREMENT NO 


ANY MORE 
TRACK NUMBER PRIME EXTENTS 






SISSBB31 
K2 





MOVE TO NEXT 
EXTENT (INCR 
WILPDR) 





L© 


Chart AK7. QISAM Scan Processing Module (IGGO19HB) Schedule Routine (Part 7 of 14) 











7 


SISSBB32 
B4 


SET CCHH FOR 
WIWCNXDM AND R 
FOR WILPDR 


SET READ TRACK 
INDEX SWITCH ON 
(WIOSBIT1) 








SHARED TRACK 





AK8 
Bl 


E 


SET SHARED 
TRACK BIT 





> 
SISSBES 
QUEUE AK10-al 


MOVE FREE QUEU 
TO READ QUEUE 





SISSCA2 


INITIALIZE IOQBI 

CP PTR TO IST 

CP22 ON READ 
QUEUE 









SISSCB3 


H 
SET OFF SHARED 


YES TRACK SWITCH 






END OF TRACK 


R OF LPDR = 









INCREMENT R OF 
WILPDR BY 1 





EAD TRACK 
INDEX SW ON 





Program Organization 129°’ 


— 


a 


* 
eee 


7 


f 


ye 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 













DETERMINE WHAT IS 
TO BE READ 


COMPARE 
W1ICNOT 


SISSBE2 SISSBE3 
D1 D2 








LESS THAN 
N/2 BLOCKS ON 
TRACK 


SISSBF2 


TRACK 
OVERFLOW 


SISSBF3 
Fi 


LAST 
TRACK ON 
CYLINDER 


: (=) 


SISSBG31 
G2 


YES 







SISSBG3 
G1 


AN ENOUGH NO 
INACTIVE BUFFERS 
ENTRY 







H1 


SET OFF SAME 
CYLINDER SWITCH 












SET ON END OF 
7 DATA BIT 


SISSBH2 







AST RECORD 
OF TRACK READ 












SISSRKSI 
B4 


ENOUGH 
BUFFERS 


SISSBK2 


SET OFF 
OVERFLOW BIT 


SISSBK3 
D4 


SET ON CYLINDER 
BIT 








YES 











am ne eee eee 


SISSCD2 









SET UP CHANNEL 
PROGRAMS FOR 
READ PRIME DATA 


SISSCE2 






LAST 


CHAN PROG IN “4 %ES 


SISSBC5 
a ES 


SET APPENDAGE 


CODE FOR READ —_ 
i 





SCHEDULE 
SUCCESSFUL 


> 


SISSBD51 5 


SISSBD5 


H5 


RETURN 





¢ 


(“ a c sae 
Chart AK8. -QISAM Scan Processing Module (IGGO19HB) Schedule Routine (Part 8 of 14) ; -_ 
130 MVS/XA ISAM Logic ae 


remem AP a 















SISSBA3 


ENOUGH 
BUFFERS 





SISSBAG _ 
QUEUE AK10-Al 


MOVE BUFFERS ON 
FREEQ. TO 
READ 0 







SISSBAS 
=D 1 


INITIALIZE 1ST 
CP TO REA 





OVERFLOW 


SISSBB5 
mf | 





INITIALIZE ALL 
CP'S ON READ 
QUEUE 


> 


Chart AK9. QISAM Scan Processing Module (IGG019HB) Schedule Routine (Part 9 of 14) 


SISSCF2 | 
=B4 


ADVANCE TO NEXT 
CP ON READ 






This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 








Program Organization’ 13 1 


\ 
NM 





Pai 


Po 


Z 
f 


3 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 








STSeTsp 


Al 
ENTRY 










SISSDD2 SISSDA4 
B4 


Bl 


CHAN PROGS 
TO BE moyen = 







SET ON QUEUE 
LINK FIELDS FOR 
MOVED ENTRIES 

















B2 
YES 
‘RETURN 


ENOUGH CPS 
ALREADY ON Q 
BEING MOVED 












































TO FOR ENTS | 
BEING MOVED 
SISSDD21., SISSDE1 SISSDF3 
ADJUST NO. OF 4 
USED CHAN PROGS 
ON 8 BY NO. OF RETURN 
ENTRIES BEING 
MOVED 
TO: CALLING ROUTINE 
SISSDF2 
SET PTR TO 1ST D2= 
CHAN PROG ON 
QUEUE ENTRIES RETURN 
ARE MOVING 
FROM! 
; 
E2 
CHAIN NEW CPS ! 
ON QUEUE VIA ; 
TIC ADDRESS 
"TO" QUEUE _ 
IS EMPTY 
SISSDF3 a 
MOVE FIRST 
FROM 
8 To |-——_———>. 
SISSDG1 = SISSDH2 
SET "N" (NO. OF 
ENTRIES TO 
MOVE) = NO. OF 
CPS ON "FROM" Q 
SISSDJ2 
H2 
cs 
SISSDK2 
GET ADDRESS OF 
LAST CP ENTRY 
ON "FROM" QUEUE 
SISSDJ3 ‘ 
STR EAS BE oe 
FIELD Eon ape —> (+) . 


Chart AK10. QISAM Scan Processing Module (IGG019HB) Queue Routine (Part 10 of 14) 





132 MVS/XA ISAM Logic ; 








SUSCTSE 


Al 
ENTRY 
¥ 












SISSFF1. 





HIS BUFFER 
END-OF-DATA 


YES SET APPENDAGE 
CODE FOR 


WRITING 









) 
SISSEA2 -_ 
YES 
© 
| 
| 





i SISSEB2 ss 
QUEUE AK10-Al 
NO 
BUFFER PUTXED MOVE USER 
BUFFER TO FREE 
| QUEUE 
YES 
| 
{ 
1 
i SISSEA3 


E1 





“AK10-Al 


MOVE USER 
BUFFER TO | 
PUTX QUEUE 


_ SISSEC3 


Fl 
CAN WRITE 
BE SCHEDULED 
YES 


— os 







SISSED3 
F3 







OVFLO CHAI 
TO BE READ 


YES 










OF PRIME DATA 


ee are 







SISSEC2 
G 


WRITES 
COMPLETE 





NO MARK THIS 
BUFFER AS 
END-OF -DATA 












U 
\ 
SISSEC1A 
SISSECIC SISSEC2A SISSEF3A 
_— : H2 HS 
YES CURRENT 
MOVE PUTX WRITE ERRORS e RECORD 
QUEUE TO OVERFLOW 
RITE QUEUE 
, (») | 
1 
SISSEE1 








2 5 
SET OFF I0BO SET WICBF FOR 
COMPLETE BIT SETL_K NORMAL/ ( 
PROGS ON WRITE B KED 









Q FOR OUTPUT 


SISSEC1 2 SISSEJ5 
QUEUE. AK10-Al 


| MOVE WRITE 
QUEUE TO 
REE QUEUE 


Chart AK11. QISAM Scan Processing Module (IGG019HB) End-of-Buffer Routine (Part 11 of 14) | 











K4 
EXIT 


Ae 
t 








r 










— nding - > ° e ™ i 
/ ~ ~ he ‘= as 
é (ee al . 


~ 


> ana — 
*- Fhis document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


~ 





SISSEC2 
Bl 













SISSEA4 
B3 















ND-OF-DATA 
ADDRESS 
SPEC'D 


READ _IN 
PROGRESS 


B2 
EXIT | 


TO: USER EOD ADDR 





SISSEAS 
QUEUE AKIO-A] 


MOVE READ Q TO 
USER Q 









BUFFER ON 
READ Q 





ABEND EXIT 


SISSED5 
D3 


D4 
SET SCHEDULE 
WRITE_IN BI 
PROGRESS 





SCHEDULE 








SISSEH3 
E1 


SISSEG3 SISSEB5 
E2 







YES 


SET _IOBI 
FIXED RECORDS SETL K BIT ON COMPLETED BIT 
TO ZERO 


SISSEE5 
F F3 


SET WICBF FOR 
OVERFLOW RECORD 


F 2 


SET WICBF TO 
1ST_RECORD IN 
BUFFER 










F4 
EINFO AK14-A3 







YES 
WRITE ERRORS 





SISSEG3A 9 SISSEES5A 
QUEUE 





AKI10-Al 





INCREMENT 
BUFFER LENGTH 





SISSEF5 
H3 


YES 
END OF DATA 





Ne 


134 MVS/XA ISAM Logic 








SISSFC2 

















OVERFLOW 
RECORD TO 
WRITE 


YES 


SISSFD2 
E1 





LAST 
RECORD 
ON TRACK 


SET POINTER TO 
NEXT CHANNEL 
PROGRAM 


AN OVERFLOW 
RECORD TO 
WRITE 


EXT RECORD 
ON SAME TRACK 


CHAIN TO 
PREVIOUS CHAN 
PROG GET THE 

NEXT CHAN PROG 


INDICATOR IN CP 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





SISSFD3 SISSFE3 
D2 D3 





SET OFF SET END=-OF-SET 
OVERFLOW INDICATOR 







SISSFF4 


SET JOB SEEK 
ADDR SET W10CPS 
TO INITIATE THE 

WRITE 


YES 
END OF QUEUE 





F 3 


GET \ST CP ON 
NEXT SET TO BE 
WRITTEN 











Fa 
( RETURN ) 


TO: CALLING ROUTINE 


Chart AK13. QISAM Scan Processing Module (IGGO19HB) SETC4 Subroutine (Part 13 of 14) 





Program Organization 135 


yw oe. 
Be oe 7 ee ; 


Pal : 





SISCTSGC 


AN 
CHECK RTN 
- ENTRY 


ae 


BL ene 







SISSGB3 


SET ON _DCBEXCD1 
ON READABLE 
BLOCK BIT 














INPUT ERROR 


RETURN 


SI1SSGC3 
DI 


SET ON DCBEXCD1 
UNREACHABLE 
BLOCK BIT 






SISSGD3 





EI 


SET PIR TO 
BUFFER ON ERROR 


FOR EINFO RTN 


F 1 
EXIT 


TO: EINFO RTN 


ee _ 


a. This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 -LY26-3894-0 


SISCTSGE 


AS 
EINFO RTN 
ENTRY 
()- 


SISSGF2 SISSGF3 
A 3 B 






RATE eee YES SET OFF WRITE 
EMPTY 


ERROR INDICATOR 


EINFO 
ENTERED FROM 
CLOSE 




















° 
c ¢ 
RECORD NO BUFFER 
UNWRITABLE UNREACHABLE RETURN 
ES ES 
SISSGG3 SISSGF21 
D3 Dé D 
SET ON SET ON QUEUE AK10-Al 
UN-CORRECTABLE UNREACHABLE 
oD ERROR BIT OUTPUT BIT IN \MOVE ONE CP 
T DCBEXCD1 DCBEXCD1 IFROM WRITE. Q TO 
FREE Q 
SISSGG31 
SET OFF ALL 
-KEY/DATA 
SISSGAB 


SISSGG4 
F 






USER SYND 
RTN PRESENT 


F 
ABEND CODE = 31 
ABEND EXIT 


SISSGH4 


SET POINTER TO 

IOB STATUS BITS 

POINTER TO BAD 
BUF 












ERROUT 


| EXIT 


TO: USER SYNAD 







EINFO 
ENTERED FROM 
CLOSE 


SISSGJ4 
K 


——> EXIT 


() TO: IGGO02029 






SET POINTER TO 
BUFFER IN ERROR 


Chart AK14. QISAM Scan Processing Module (IGGO19HB) Check Routine and EJNFO (Error Information) Routine 


(Part 14 of 14) 





‘136 MVS/KA ISAM Logic 


a 
bok 


2 


amt = 


ee ee 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


SISSAPRET SISCERTN STSABRTN 


Al AJ AG 
ENTRY ENTRY ENTRY 


FROM: 105 FHA NE aad 





B3 
oer SORNT PRO 


VECTOR TAB 
























RETURN i 
SISAPASA 
D1 . 
ENTRY ) 
ASYNCHRONOUS 
ROUTINE ENTRY 
I 
SISAPO1 
£1 £3 
GET I0B,DCB,. ADD APPENDAGE 
DEB, WORK AREA, ADD 8 TO GET CODE TO G 
ECB ADDRESSES MODULE BASE 
FROM ROE ADDRESS ADDRESS 
t 
1 
Fl } 
F3 
SAVE ECB, SET 
POINTER TO EXIT 
EXTENT OF M 
TO: APPENDAGE 
ROUTINE 
MOVE DEB BB 
INTO IOBI : 





1 


RESTORE ECB 


; E 
RETURN 


Chart AL]. Scan Mode Appendage (IGGO19HG) (Part 1 of 3) 





Program Organization 137 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





SISRAB2 
At 
ENTRY 
ABNORMAL@END 
APPENDAGF READ QUFUF 
SISRAC2 — 
B1 


ET POINTER TO 


Ss eae 
CCW WITH ERROR ; 









PERMANENT 
ERROR 


SISRAC 3B 
D2 D4 


INCREMENT 
TRACK VALUE BY 
ONE 


















CP STOP AT 
SEARCH ID 
EQUAL 





SEEK H ™ 
EQUAL FIRSH 





SISRAC3E 
E2 E 
PERMANENT 

ERROR 


SHARED TRACK 


SISRAC 3A SISRAC3D 
F2 F4 


MARK BUFFER 
UNREACHABLE 






INCREMENT HH 
OF IDAD BY ONE 







SISRAD2C 
31 G 


OVERFLOW 
RECORD ; END OF READ Q 


MARK BUFFER 


YES 
UNREADABLE 


H2 


REDUCE READ 
COUNT BY ONE 


H3 


POINT TO NEXT 
CHANNEL PROGRAM 





H1 
MOVE IOB FIELDS 
INTO CHANNEL 
PROG FOR USER 


ERROR EXIT ON QUEUE 





SISRAF2 
J1 


YES 
OVERFLOW MODE 


Cs 


SISRAJ4 





SISRAF3 
K1 





K 3 Gah or 
EXIT 


TO: IOS EXCP ROUTINE 


take 


Chart AL2. Scan Mode Appendage (IGGO19HG) Abnormal-end, Read Queue (Part 2 of 3) | _ 





‘138 MVS/XA ISAM Logic | z 


oa 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


sae ee 





SISCTRG 


Al 
( ENTRY ” 





SISRQE2 aa SISRQB5 | 


SET OVERFLOW 
SWITCH OFF 
DECREMENT NO. 


YES 







SET_END OF DATA 
ON _I 





OVERFLOW MODE END OF FILE BIT N 
: f WIOSBIT1 OF BUF SON READ 
é B 
( | —& 


SISRQC3 SISRQF2 









3 










1 
DECREMENT READ SET IOBI 
Q COUNT BY ONE COMPLETION BIT AST PRIME 
SET _ IOBI T I Oe eReer eS 


SET IOB 
EXCEPTION BIT 
OFF 


EXCEPTION BIT 
OFF 
YES 





cap: eh a 


DS 
MARK BUFFER AS 


D3 
YES END OF DATA SET 
EXIT OVFLO eneet BIT 





END-OF- 
OVERFLOW 
CHAIN 









SISROC4 








F MT,CC 
LL FLAGS 
DATA ON 
KEY-DATE 





Fl 
SET OF 
AND _A 







SISRQE4 
aoe (OVERFLOW 






CC 
LINK ADDR 


pe tees a 






OVERFLOW 
RECORD ON 
SAME DEV 






H2 a <0 i Pa 
EXIT i 


TO: ASYNCHRONOUS ROUTINE 








tL, at Cee a nee ee EE Bi 


s 
Par eae 





ae 


2 a rey nel anaes e 


cnet Cory tes TE 
x 


. 
Bees 





Re : 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





SISC4A1 


Al 
ENTRY 


A_READ IN 
PROGRESS 





AIT (FOR READ 
COMPLETION) 







SISC4A2 
RETURN POINT 


BEEN HANDLED 


SISC4B1 SISC4C2 















HAS CLOSE NO 
ENTERED ESETL 


SISC4F1 SISC4D1 


ESETL AK6-A1 


INITIATE LAST 
WRITES, MOVE 
BUFS TO FREEQ 
















sIscaci = 
ao USER SYNAD 
WRITES IN YES qFOR WRIT RESTORE SCAN MUST RETURN 
PROGRESS AL OMPLETION) REGISTERS TO CLOSE 
EXECUTOR 
A r 
SISC4G1 
G1 
WRITE YES 
ERRORS FROM | 
ESETL | 
‘NO 
(«)+ 
SISC4J1 SISC4J11 ! 
1 “H2 eo | 
RITE QUEU NO CHAIN ALL WRITE 
EMPTY QUEUE BoEreRS” 
ES 
SISC4J2 |. SISC4J 22 : 
REE QUEUE NO CHAIN ALL FREE 
EMPTY QUEUE BUFFERS 
ES 
SISC4J3 RELOOP TCTLRIN = 
RESTRUCTURE 
BUFFER CONTROL EXIT 
BLOCK 





TO: IGGO0202D 


Chart AMI. Scan Mode Close Executor Module (IGG02029) 





‘140 MVS/XA ISAM Logic 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





~ 1GG01921 : 








DISP = SHR 





OPNOSF 1 OPNGAPS 
C1 C3 


2 
CALC_RECORD 
FIXED OVERHEADS FOR 330 DEVIC YES 

PRIME AND USED 


FORMAT 
RECORDS ~INDEPENDENT 
OVERFLOW 






IN HALFWORDS 









OPNSTRGP 
SET RECORD 
OVERHEADS IN 
WORK AREA AT 
AND 


OPNOSF2 OPNO7K2B 
E3 E4 


TEST IF READ & 
UPDATE OR WRITE YES 
KN, OR BOTH VLR 


* + 


SPECIFIED 


MODULES 
















OPNCLI 







ANY 
LEVELS OF 
INDEX TO SRCH 
ON DEV 


“YES 
HI-LEVEL INDEX ON 
DEVICE, NSLD # 0 


4 
INIT LOGIC 
FOR 


O 
PRIVILEGED 
MOD'S USED W 

NSLD # 0 

















HS= 
LOAD (LOAD 
BISAM CHK RTN 


MODULE- 
I1GGO19JC) 






STORE ADDRESS 
OF CHECK MODULE 
AT DCBSETL 





K 

ADJUST ADDR OF ‘ 

CHECK MODULE 

AND MOVE ,MODULE|——® 
ID TO DEB é 


"4 Ge me 
a 
wi, 


a 


Chart ANI. BISAM Open Executor—Load Privileged Module (IGG0192]) (Part 1 of 2) 





Program Organization 141 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





OPNO470 


1 
MOVE MODULE ID 
TO DEB 





D2 
ZERO PTR TO CP1 















HI-LEVEL NO 
INDEX TO SRCH 


ON DEVICE 


IPNO7B2 
El E2 


LOAD {LOAD 
CPi IN MODULE} | ———-—* 
IGGO19IJ) 


E3 
INITIALIZE 
PARTS OF CP} 


THAT ARE 
DIFFERENT FROM 
CP2 


PNO7C2 FI OPNO7E1 


LOAD (LOAD DELETE 
CP2 IN MODULE (DELETE CHAN 
I1GGO19IK ) PROG MODULE) 





INITIALIZE CP2 
(OR SIMILAR 
PARTS OF CP1) 


©- 


OPNO7A3 
H 


















OPNO7AA3 


INIT WTG 
LOGIC TO LOAD 
CDULE 1GG0192K 









OPNO7B 


OPNEND 


MAXIMUM ERROR 


QUEUE IOB'S AND 
SET AT DCWERRCT 


RELOOP 





WT’ oO A 
IGGO192L 


5 


21 
& 
CALCULATE 





K4 


PERFORM 
WHERE -TO-GO 
LOGIC 


Chart AN2. BISAM Open Executor—Load Privileged Module (IGGO1921) (Part 2 of 2) 





+ BUFNO 
FIOBE 


TCTLRTN 


KS 
—_——+| XCTL 


TO: IGGO 
1GGO0 


™ 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





—_ : 
3 i} 
{ ee TGGOTW9IV 


we Al 


ENTRY 


RWMACRO 
B 
RESET_EXCEPTION a 


BLK (DECB) © 









RWMRWA1 


RWMRWA2 RWMRWH2 


SET INVALID 
aa 
INDICATOR AT 

DECBEXC 1 







BUFFERING 
SPEC'D IN DCB 
















RWMRWB2 RWMRWCV 
D1 D D4 D 
LNG EW LNG 
OVERRIDED — YES SPEC 2 LNG NO BLOCKED NO FIXED= NO ‘ ; 
D LENGTH EAD K 
DECBTYP2 ‘ DCBBLKSI . ~ RECORDS READ ISSUED 
NO YES ES ES YES 


RWMRWC 3 


| Cs) lire 


RWMRWH 1. 
E2 






SAVE .RET 





ADDR FOR SET DECBEXC1 TO 
PRIVILEGED INDICATE RECORD 
MACRO-TIME LENGTH CHECK 

ROUTINE 





SVC 54 - PRIV 


MACRO-TIME 
RTN ENTERED 





(2) 


RWMRWH 3 






RWMRWJ 3 






a 4 
TURN OFF 
—_——____» | DECBEXC2 SWITCH]|—————_® RETURN 


5 TO: USER- 


YES z 


POST (SIGNAL 
END OF 
REQUEST) 










T DECBEXC1 
(PROCESSING PROGRAM) 





REQUEST 
COMPLETE 


IOB 
SCHEDULED FOR 
EXCF- 





K2 . 
EXCP_ (EXECUTE 
REQUEST) 










EXCP - 
ALREADY 
SCHED BY VLR 

“ASYNCH 


© 
© 





a 


Program Organization 143 bi 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





IGGO19JX 


Al 
ENTRY 


FROM: NON-PRIVILEGED MACRO-TIME 
ROUTINE VIA QING SVC 











HNQXB30 
QHNG Bl 


OBTAIN ADDRESS 
OF FIRST IOB 


QHNOXB6 P QHNQXB7 











INCREMENT 
DCWERRCT (# 
DECS) FOR THIS [|————*(OF SLOTS ON ERR 

EQUEST UEUE) IN DCB 
WORK AREA 













THIS LAST 
IOB ON QUEUE 


NO 


FIND IOB (AND 


IOB ADDRES 
VALID 






QHNOQXB2 


SET DCWLIOBE = 
IOBBCHAD 
(BACKWARD 

CHAINING LAST 

I0B) 


HNQHB30 
QHNQ DI 





QHNOXB1 








NO HIS FIRST 


ALLOW FOR RPS 
MD IOB ON QUEUE 


CHANNEL C 
WORD IN IOB 


YES 


QHQXB14 


SET DCWFIOBE = 

IOBFCHAD (FWD 

CHAINING FIRST 
I0B) 







HNQHB 31 
PHN F 1 





QHNQHBS 


: CLEAR LOB | 
INITIALIZE ECB : 
& DCB PTRS IN 

IOB 


WKNN2EZ 
WKNN2E24 







HS 
SET WRITE KN SW 
IN WRK AREA 
DCWWKNI) SET 
NSCHED'’D BIT 
OFF IN IOB 


(IOBINDCT) 







YES PREVIOUS 
WRITE KN IN 


PROGRESS 





WAITING) 












°S— z 
WKNS5SB1 AQ2-Al 
SET UP FIRST 
CHAN PROGRAM 





3 
SET 1 OB NS ER & 
IOBINDCT FOR 
ITOB NOT SCHED'D 
PROGRESS 





WKNN2J 2 


au K5 TT se 
RETURN Sg 


TO: NONPRIVILEGED 
( AT SVC ROUTINE) 


Chart AQ1. BISAM Privileged Macro-time Processing Module (WRITE KN, without Read and Update) (IGGO19JX) x = 
(Part 1 of 2) 





144 MVS/XA.ISAM Logic = 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 





FROM: CC1-J5, OR ASYNCHRONOUS RTN 






WKNS 5B! 
B1 


SET SYSTEM MASK 
BITS (DISABLE 
INTERRUPTS) 


SET ADD TO END 
INDICATOR 
(DCWWKNI) OFF 





D2 


SET IOB SEEK 
ADDRESS = 
FTHI 





















HI~LEVEL 
INDEX IN 
STORAGE 





SEARCH INDEX IN 
STORAGE, FIND 
KEY HIGH OR 
EQUAL 


WKNS5C 3 
F2 





NO SET SEEK 
ADDRESS FON KEY 
INSERTION 


ADDING TO END 


WKNSSCS 


SET IOB 
APPENDAGE CODE 
= X' OE 





VLR_ END OF 
FILE EXTENSION) 


WKNSVAR 








2 
INITIALIZE CP15 
ADDING 
SEND_ Nr 
SET} 





WRITE CHECK DATA 


ALLOW FOR WRITE 
Be) EC HAN 
COMMAND WORDS 


WKNS5D1 WKNS5E1 





SET 10B 
APPENDAGE CODE 
x’ INI 

CHAN PROGRAM 8 







> INDEX 
HIGHEST {NDEX 





SET I0B 
APEEND NSS CODE 
INITIALIZE CP 1 


NO 
MASTER INDEX 





CYLINDER INDEX HIGHEST 
LEVEL, USE CP2 





WKNS 5G2 
—_H 3 


SET SYSTEM MASK 
BITS OFF 


3 
RETURN 


‘TO: CC1-K5, OR ASYNCHRONOUS RIN 


Chart AQ2. BISAM Privileged Macro-time Processing Module (WRITE KN, without Read and Update) (IGGO19JX) (Part 2 * 


of 2) 
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a DIRECTORY | ' 


ISAM Modules Identified in Alphameric Sequence 


All ISAM modules are listed according to function and mode in Figure 56 and in 
alphameric order in Figure 57. = 
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BISAM 


192A 192B 192C | 192A 192B 192C | 192A 192B 192C 


ees 1920 1950 1922 | 1920 1950 1922 | 1920 1950 1922 
Modules 


O 192U. 196C | 
tie 192V 196D | 1924 192N 1922 
a (ET ee 1921 196G |} 1928 1920 
see 195D 1929 192P 
195G 1920 
195T 192W 
195U 192X 
19GA 1914 1911 |19HB 19HD 19HF 
Macro-time 


19GB 19!1B 1912 19HN 
Channel-end 


and 
Abnormal-end 
Appendages 


19GG 19HA 19JH 19JG 
Appendage 


19HL IDHP 190 8 19JU 
19JJ 19JP 
19JK 19JQ 
19JL  19JR 
19JM 19JS 
19JN = 19JT 


Pf nn 








QISAM Load Mode QISAM Scan Mode 






















19GC 
19GD 













Processing 
Modules 











Channel 
Program 


Asynchronous 


Other 











|\GCO005D(SVC54} {GCOO005D(SVC54) 
19JC (CHECK) 

19J1 (Dynamic Buffer) 
202J 202M 


2029 202A 
202K 202N | 


Force/Task 202B 202B 202B 


Figure 56. ISAM Modules Identified by Function and Mode 
























2021 202L 2028 


Mode- 
oriented 











Close 
Executor 
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Module 


IGGOI9GA 
IGGOIIGB 
IGGOLIGC 
IGGO1IIGD 
IGGO1ISGE 
IGGO019GF 
IGGO019GG 
IGGOI9GN 
IGGO19GO 
IGGO019GW 
IGGO1I9GZ 
IGG019GO 
IGGO019G1 
1IGG019G2 
IGGO19G3 
IGG019G4 
IGG019G5 
1GG019G6 
IGG019G7 
IGG019G8 
IGG019G9 
IGGOISHA 
IGGO019HB 
IGGO19HD 
IGGO19HF 
IGGOIS9HG 
IGGO019HH 
IGGOI9HI 
IGGO19HI 
IGGOI9HK 
IGGOISHL 
IGGOIS9HN 
IGGO19HP 
IGG019H3 
IGGOI9SIA 
IGGO019IB 
IGGOI9IE 
IGGO19IF 
IGGO19IN 
IGGO0191O 
IGGO19IZ 
IGGO19I1 
1GG01912 
IGG01919 
IGGO19IC 
IGGO1I9IG 
IGGO19JH 
IGGOI9JI 
IGGOIL9JJ 
IGGO19JK 
IGGO19JL 
IGG019JM 
IGGOIL9IN 
IGGO19JO 
IGGO19JP 
IGGO19JQ 
IGGO19IR 
IGGOI9JS 


Figure 57 (Part | of 2). ISAM Modules Identified in Alphameric Sequence 
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Mode and Function Text 
Pages 


QISAM load (macro routines) 

QISAM load (macro routines) 
QISAM load (appendage routines) 
QISAM load (appendage routines) 
QISAM load (channel programs) 
QISAM load (channel! programs) 
QISAM load (RPS appendage routine) 
BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (asynchronous routines) 
BISAM (asynchronous routines) 
BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

BISAM (appendage routines) 

QISAM scan (RPS appendage routines) 
QISAM scan (macro routines) 
QISAM scan (macro routines) 
QISAM scan (macro routines) 
QISAM scan (appendage routines) 
QISAM scan (appendage routines) 
QISAM scan (appendage routines) 
QISAM scan (appendage routines) 
QISAM scan (appendage routines) 
QISAM scan (channel programs) 
QISAM scan (macro routines) 

BISAM (channel programs) 

BISAM (macro routines) 

QISAM load (macro routines) 
QISAM load (macro routines) 
QISAM load (channel programs) 
QISAM load (channel programs) 
BISAM (appendage routines) 
BISAM (appendage routines) 

BISAM (asynchronous routines) 
QISAM load (macro routines) 
QISAM load (macro routines) * 
BISAM (appendage routines) 

BISAM (check routine) 

BISAM (channel program splitting appendage 
BISAM (RPS appendage routine) 74 
BISAM (dynamic buffering routine) . 73 
BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 

BISAM (channel programs) 
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_ Module 


IGGO19JT 
IGGO019JU 
[GGO019JV 
IGG019JW 
IGGO19JX 
IGG019J0 
IGG019J3 
IGGO192A 
IGG0192B 
IGG0192C 
[GG0192D 
IGG0192E 
IGG0192F 
1GG0192G 
IGG0192H 
1GG0192I 
IGG0192J 
IGG0192K 
IGG0192L 
IGG0192M 
IGG0192N 
1GG01920 
1GG0192P 
IGG0192Q 
IGG0192R 
IGG0192S 
IGG0192T 
1GG0192U 
IGG0192V 


1GG0192W. 


1GG0192X 
IGG0192Z 
IGG01920 
1GG01921 
IGG01922 
IGG01924 
1GG01928 
IGG01929 
IGG0195D 
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Mode and Function 


BISAM (channel programs) 
BISAM (channel programs) 
BISAM (macro routines) 
BISAM (macro routines) 
BISAM (macro routines) 
BISAM (macro routines) 
BISAM (macro routines) 
Common open executor 
Common open executor 
Common open executor 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
BISAM (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
BISAM (epen executor} 
BISAM (open executor) 
BISAM (open executor) 
Common open executor (validation) 
QISAM load (open executor) 
Common open executor (validation) 
QISAM scan (open executor) 
QISAM scan (open executor) 
QISAM scan (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 


" QISAM load (open executor) 


Common open executor (validation) 
QISAM load (open executor) 
QISAM load (open executor) 
QISAM load (open executor) 
BISAM (close executor) 

Common force/task close executor 
Common close executor 

QISAM load (close executor) 
QISAM load (close executor) 
QISAM load (close executor) 
QISAM load (close executor) 
QISAM load (close executor) 
QISAM load (close executor) 
QISAM load (close executor) 
QISAM scan (close executor) 


150 MVS/XA ISAM Logic 


Text 
Pages 


68 
68. 


22 
23 
24 
31 
32 
32 
32 
65 
65 
66 
65 
66 
66 
66 
66 
65 
66 
35 
35 


35 


65 
66 
66 
24 
29 
25 
48 
48 
48 
34 
34 
34 
35 
25 
33 
33 
34 
97 
26 
25 
45 
46 
46 
47 
47 
46 
46 
62 


References 
Figure 
Pages 


79 
79 
77 
77 


77 ~ 


77 
77 
23 
23 
23,30,48,67 
30 
30 
30 
30 
67 
67 
67 
67 
67 
67 
67 
67 
67 
67 
31 
3] 
31 
31 
31 
67 
67 
67 
30,48,67 
30 
30,48,67 
48 
48 
48 
30 
30 
31 
31 
30,48 ,67 
30 
30 
30 
26 


26,46 
26,46 
26,46 
26,46 
26,46 
26,46 
26,46 
26,46 
24 


Flowcharts -_ 
Pages 


143 


144-145 


101-103 
103,104-105 
105,106 
112-114 
114 

114 


108 
141-142 


142 
142 


101 


106,107 
106,109-111 
107,108 
116 
108,117-120 


106 
108,115 
115 


121-122 


128,136,140 


f /—o™~ 


a 


DATA AREAS 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


ISAM Control Blocks and Data Areas 


Indexed sequential access method (ISAM) routines use a number of control blocks that 
are common to all of data management. 


The control blocks are: 

e Data control block (DCB) 

e Data event control block (DECB) 

e Data set control block (DSCB) 

e Data extent block (DEB) 

¢ Input/output block (IOB) 

ISAM routines also use certain work areas and buffer control areas. 
The ISAM work areas are: 

e QISAM load mode work area 

e QISAM scan mode work area 

e BISAM work area 

e QISAM load mode track-index save area (TISA) 

e ISAM DCB field area 

The ISAM buffer control areas are: 

e BISAM dynamic buffering buffer control block (BCB) 
e QOISAM buffer control block (BCB) 

e QISAM load mode buffer control table IOBBCT) 


Data Control Block (DCB) 


The data control block (DCB) is the major means of communication between the 
problem program and the control program. The sources for ISAM DCB information are: 
the open executors, the DCB macro instruction, the problem program, the data definition 
(DD) statement, and the data set control block (DSCB). Figure 58 shows the portion of 
the DCB that is unique to ISAM. 
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48(30) DCBGET/DCBPUT 


DCBMSWA 
| 104(68) DCBRELX 


120(78) DCBLEMI2 

















DCBFTMI2 


125(7D) 


DCBFTMI3 


132(84) DCBLEMI3 


a 


Figure 58 (Part 1 of 2). BISAM/QISAM DCB 
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| 152(98) : DCBRORG3 

156(9C) DCBNREC 

160(A0) DCBST 161(A1) 
168(A8)  DCBHIIOV 


176(BO) DCBNTHI 


184(B8) 















DCBFTCI 











169(A9) 





DCBFTMI1 






177(B1) 
DCBFTHI 











DCBLPDA 












192(CO) 





DCBLETI 







198(C6) DCBNBOV 
205(CD) Reserved 206(CE) DCBRORG2 
213(D5) _ Reserved 214(D6) DCBNOREC 


DCBLIOV 


197 (C5) DCBOVDEV 








200(C8) 






DCBLECI 












208 (DO) 
DCBLEMI1 







216(D8) 






248 (F8) DCBWKPT6 





Figure 58 (Part 2 of 2). BISAM/QISAM DCB 
eee 


Offset Field Name Bytes Description 
48(30) DCBGET/DCBPUT 4 Address of get module or address of put module. 
Note: This field is not used by ISAM routines. See the extension of the data extent ‘block (DEB). 
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Offset 
52(34) 


53(35) 


5.4(36) 


55(37) 


56(38) 
60(3C) 


62(3E) 


64(40) 
64(40) 


68(44) 
70(46) 


72(48) 


73(49) 
76(4C) 


80(50) 


‘Field Name 


DCBOPTCD 


DCBMAC 


DCBNTM 


DCBCYLOV 


DCBSYNAD 


DCBRKP 


DCBBLKSI 


DCBLPDT 


DCBMSWA 


DCBSMSI 


DCBSMSW 


DCBNCP 


DCBMSHI 
DCBSETL 


DCBEXCD1 
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Bytes 
1 


Description - 


Option codes: 


Bit 0 W — Write validity-check 


1 U — Full track-index write 
2 M — Master index(es) as 
3 I — Independent overflow area 
4 Y — Cylinder overflow area 
5 Reserved 
6 L — Delete option 
7 R — Reorganization criteria 
MACREF Extension for ISAM 
Bit 0 3 — Reserved 


4 U — Update type of READ 
5 U — Update type of WRITE 
6 A — Add type of WRITE 

7 Reserved 


The number of tracks that determine the development of a master index. 
If the number of tracks in the cylinder index exceeds this number, a 
master index is developed. If the number of tracks in the master index in 
turn exceeds this number, then a higher level master index is developed, 
and so forth. Maximum permissible value: 99. 


The number of tracks to be reserved on each prime-data cylinder to hold 
records that overflow from other tracks on that cylinder. Refer to the 
section on allocating space for an ISAM data set in Data Management 
Services, to determine how to calculate the maximum number. 


Address of user’s synchronous error routine to be entered when 
uncorrectable errors are detected in processing data records. 


The relative position of the first byte of the key within each logical 
record. Maximum permissible value: logical record minus key length. 


Blocksize. For fixed-length record formats, this must be an integral 
multiple of DCBLRECL. For variable-length record formats, it must be 
maximum blocksize and must include the 4byte block length field. 


For QISAM load mode, MBBCCHHR, last prime track on the last prime 
cylinder. 


For BISAM, address of a work area supplied by the user when new 
records are being added to an existing data set. 


For BISAM, number of bytes in an area reserved to hold the highest level 
index. The address of this area is in DCBMSHI. Maximum size allowed is 
65 535 bytes. 


For BISAM, number of bytes in work area used by the control program 
when new records are being added to the data set. The address of this 
area is in DCBMSWA. Maximum size allowed is 32.767 bytes. 


Number of copies of the READ/WRITE type K channel programs that 


are to be established for this data control block (99 maximum). ies, 


Address of a virtual-storage area to hold the highest level index. 


Address of SETL module for QISAM. Address of Check module for 
BISAM. 


First byte in which exceptional conditions detected in processing data 
records are reported to the user (see “Appendix B. ISAM Channel 
Programs’). 



































— 


Offset Field Name 
81(51) DCBEXCD2 
82(52) DCBLRECL 
84(54) DCBESETL 
88(58) DCBLRAN 
92(5C) DCBLWKN 
96(60) DCBRELSE 
100(64) DCBPUTX 
104(68) DCBRELX 


108(6C) DCBFREED 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Bytes 


- & Lh SF HL A 


4 


Description 
Bit O — Lower key limit not found 
1 — Invalid device address for lower limit 
— Space not found 
— Invalid request 
— Uncorrectable input error 
— Uncorrectable output error 


— Unreachable block (input) 


YA WwW dB ww N 


— Unreachable block (update) 


Second byte in which exceptional conditions detected in processing data 
records are reported to the user (See ““Appendix B. ISAM Channel 
Programs’). 


Bit O — Sequence check 


1 — Duplicate record 
2 — DCB closed when error was detected 
3 — Overflow record 


4 — The logical record length specified in the record field is 
greater than that specified in DCBLRECL (Variabie-length 
records only). 


5-7— Reserved 


Logical record length for fixed-length record formats. For variable-length 
record formats, may either be maximum logical record length or an 
actual logical record length changed dynamically by the user when 
creating the data set. 


QISAM: Address of the ESETL routine in the Get module. 
Address of READ/WRITE K module. 

Address of WRITE KN module. 

Work area for temporary storage of register contents. 
Work area for temporary storage of register contents. 
Reserved. 


Address of dynamic buffering module. 


Note: This field is initialized but not used by ISAM routines. See the extension of the data extent block (DEB). 


112(70) DCBHIRTI 
113(71) DCBFTMI2 
120(78) DCBLEMI2 


125(7D) DCBFTMI3 


132(84) DCBLEMI3 








| 
7 


Highest number of index entries that fit on a prime-data track. 


Direct-access device address of the first track of the second level master - 
index (in the form MBBCCHH). If the second level master index crosses 

an extent boundary, the first B byte holds the M of the last active entry in 

this master index (LEMI2). Otherwise, the first B byte will be 0. 


Direct-access device address of the last active entry in the second level 
master index (in the form CCHHR). The M for this address is the same 
as the M contained in the field DCBFTMI2 (above) if the first B byte of 
that field is 0. Otherwise, the M for the address is contained in the first B 
byte of DCBFTMI2. 


Direct-access device of the first track of the third level master indéx“(in: 
the form MBBCCHH). As for FTMI2, the first B byte will either be 0 or 
will hold the M of the last active entry in the index (in this case, the M for 
LEMI3). 


Direct-access device address of the last active entry in the third level. 
master index (in the form CCHHR). The M for this address is the same 
as the M for FTMI3 if the first B byte is contained in the first B byte of 
FTMI3. 


| 


| 


Data Areas~1 55. 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Offset : 
137(89) 


138(8A) 


141(8D) 
142(8E) 


144(90) 


145(91) 


146(92) 


147(93) 


150(96) 


152(98) 


156(9C) 
160(A0) 


161(A1) 


168(A8) 
169(A9) 


176(BO) 


Field Name 
DCBNLEV 


DCBFIRSH 


DCBHMASK 
DCBLDT 


DCBHIRCM 


DCBHIRPD 


DCBHIROV 


DCBHIRSH 


DCBTDC 


DCBNCHRI 


DCBRORG3 


DCBNREC 
DCBST 


DCBFTCI 


DCBHIIOV 
DCBFIMI1 


DCBNTHI 
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Bytes 


Description 


a 


Number of levels of index. Has a maximum value of 4, corresponding to 
the case where there is a cylinder index and three master indexes. If the 
track index ts the highest level index, then NLEV=0. 


. HHR of the first data record on each cylinder. The first data record on 


each cylinder may be on the last track of the track index for that cylinder 
(in which case, the track is said to be shared). 


X“FF’ 


HH of the last prime-data track on each cylinder. This differs from the 
last physical track on a cylinder when the user has reqeusted cylinder 
overflow areas. 


Highest possible R for tracks of the cylinder and master indexes. This is 
the number of index entries that fits on a track. Note that these indexes 
may be on a different type of device than the rest of the data set. 


Highest possible R for any prime-data track. This is the number of 
records or blocks that fits on a prime-data track. 


Highest possible R for overflow data tracks, fixed-length record formats 


only. This is the number of fixed-length records or blocks that fits on an 


overflow data track. 


R of the last data record on a shared track, if applicable (fixed-length 
records only). 


Tag deletion count. A field reserved for the user in which he may keep 
the number of records that have been tagged for deletion. It is merged to 
and from the format-2 DSCB for BISAM, scan mode, and load mode 
resume load. 


Number of storage locations needed to hold the highest level index. This 
is equal to (KL + 10) (N), where N is the total number of index entries, 
including dummy entries. Note that the track index may be the highest 
level index, and the track index is never held and searched in virtual 
storage. 


For each use of the data set, the number of Read or Write accesses to an 
overflow record which is not the first in a chain of such records. 


Number of logical records in the prime-data area. 
Status indicators. 
Bit Q — Single schedule mode 

1 — Key sequence to be checked 

2 — Initial load has been completed 


3 = Data set extension (resume loading) will begin on new 
cylinder 


4 — Open complete bit 

5 — First macro not yet received 
6 — Last block full 

7 — Last track full 


Direct-access device address of the first track of the cylinder index (in the 
form MBBCCHH). As for FTMI2, the first B byte will either be 0 or will 
hold the M of the last active entry in the index (in this case, the M for 
LEMI). 


Highest R for.independent overflow track. 


Direct-access device address of the first track of the first level master 
index (in the form MBBCCHH). As for FTMI2, the first B byte will 
either be 0 or will hold the M of the last active entry in the index (in this 


.case, the M for LEMI]1). 


Number of tracks of the high-level index. 
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Offset Field Name Bytes Description 

177(B1) DCBFTHI i; - Direct-access device address of the first track of the highest level index 
(in the form MBBCCHH). Note that this may be the track index. 

184(B8) DCBLPDA 8 Direct-access device address of the last prime-data record in the 


prime-data area (in the form MBBCCHHR). 


192(CO) DCBLETI 5 Direct-access device address of the last active normal entry of the track 
index on the last active cylinder (in the form CCHHR). The M of this 
entry is the same as the M of LPDA. 


197(CS5) DCBOVDEV I Independent overflow device type (field description same as 
DCBDEVT). 
198(C6) DCBNBOV 2 Number of bytes remaining on current overflow track (variable-length 


records only). 


200(C8) DCBLECI — A Direct-access device address of the last active entry in the cylinder index 
(in the form CCHHR). The M for this address is the same as the M for 
FTCI if the first B byte in FTCI is 0. Otherwise the M for this address is 
contained in the first B byte of FTCI. 


205(CD) | Reserved for future use. 


206(CE) DCBRORG2 Z Number of tracks (partially or wholly) remaining in the independent 
overflow area. 


208(D0) DCBLEMI1 5 Direct-access device address of the last active entry in the first level index 
(in the form CCHHR). The M for this address is the same as the M for 
FITMI1 if the first B byte in FTMI1 is 0. Otherwise the M for this address 
is contained in the first B byte of FTMI1. 


213(D5) 1 Reserved for future use. 
214(D6) DCBNOREC 2 Number of logical records in an overflow area. 
216(D8) DCBLIOV 8 Direct-access device address of the last record written in the independent 
overflow area (in the form MBBCCHHR). 
224(E0) DCBRORGI 2 Number of cylinder overflow areas that are full. 
226(E2) 2 Reserved for future use. 
228(E4) DCBWKPT1 4 BISAM: pointer to CP 1 or CP 2. 
QISAM: pointer to DCB work area. 
232(E8) DCBWKPT2 4 BISAM: pointer to DCB work area. 
236(EC) = DCBWKPT3 A BISAM: pointer to CP 8. 
240(F0) DCBWKPT4 4 BISAM: pointer to appendage module (part 1). 


QISAM: pointer to UCB. 
Note: This field is initialized but not used by ISAM routines. See the extension of the data extent block (DEB). 


244(F4) DCBWKPTS5 4 6 BISAM: pointer to appendage module (part 2). 
QISAM: pointer to appendage module (Load mode only). 


Note: This field is initialized but not used by ISAM routines. See the extension of the data extent block (DEB). 
248(F8) DCBWKPT6 4 QISAM: pointer to DCB work area vector pointers (ISLVPTRS). 


Data Event Control Block (DECB) 


The data event control block is constructed as part of the expansion of a READ or 
WRITE macro instruction. The DECB contains a parameter list, an event control block, 
a pointer to the desired logical record, and an exception code. Figure 59 shows the-:-.., 
format of the DECB. rs 


Offset Field Name Bytes Field Description 

0(0) ~ DECBECB 4 - Standard ECB 

4(4) DECBTYPI 1 First byte of macro type field 
Bit 05 — _ Reserved 
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Offset Field Name Bytes Field Description 
6 — _ Length coded as ‘S’ (take length from DCBBLKSI) 
7 — _ Areacoded as ‘S’ (dynamic buffer option) 
5(5) DECBTYP2 1 Second byte of macro type 
Bit 0 — READK ; 
1! — _ Reserved 
2 — READ KU 
3 — _ Reserved 
4 — WRITEK 
5 — WRITEKN 
6-7 — Reserved 
6(6) DECBLGTH Z Number of bytes read or written 
8(8) DECBDCBA 4 Data control block address 
12(C) DECBAREA 4 Address of storage area for record 
16(10) DECBLOGR 4 Pointer to logical record 
20(14) DECBKEY 4 Record key address 
24(18) DECBEXC1 | Exceptional condition code byte (see “Appendix B. ISAM Channel 
f Programs’ ) 
Bit 0 — _ Record not found 
1 —_ Record length check 
2 — Space not found in which to add a record 
3  — _ Invalid request 
4 —  Uncorrectable [/O error 
5 — _ Unreachable block 
6 — Overflow record 
7 — Duplicate record presented for inclusion in data set 
25(19) DECBEXC2 1 Exceptional condition code byte (see ““Appendix B. ISAM Channel . 
Programs”) 
Bit O05 — Reserved 





ee ———————————— 











“ 
a 


0(0) DECBECB 


4(4) DECBTYP1 5 (5) DECBTYP2 6(6) DECBLGTH 


8(8) DECBDCBA 





12(C) DECBAREA 


16(10) DECBLOGR 


. 
i « 
‘ 
¢ 


20(14) DECBKEY 


| 24(18) DECBEXC1 | 25(19) DECBEXC2 


Figure 59. Data Event Control Block 
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Bytes — Field Description 
6 — Channel program initiated by an asynchronous routine 
(variable-length records only) 
7 —_ Previous macro was READ KU 


Data Set Control Block (DSCB) _. 


Data sets on direct-access devices use a control block called a data set control block 
(DSCB) as their data set label. There are actually three-kinds of DSCBs used to describe 
the attributes and extents of an ISAM data set. The information in the attribute fields of 
the DSCBs includes data set organization, record format, and other information needed 
to refer to and use a data set. The extent entries in the DSCBs describe the physical 
boundaries of a data set. 


The three kinds of DSCBs used to describe ISAM data sets are: 


e The identifier (format-1) DSCB contains such items as the data set name, the number of 
extents on the volume, creation and expiration dates, block length, logical record length, and 
three extent entries that are used to build the DEB. There is one format-1 DSCB for each 
volume of a data set. (DADSM Diagnosis Reference provides additional details on the 
construction of the DSCBs at allocation of the data set.) 


e The index (format-2) DSCB is used only for ISAM data sets. There is one format-2 
DSCB for each data set; it is used in constructing the ISAM DCB interface. The 
format-2 DSCB resides in the VTOC of the first volume on which the data set was 
allocated. When the QISAM scan mode open executor module (IGG01928) or the 
BISAM open executor module (IGG0192H) is executed, data in the associated 

..-format-2 DSCB are moved to the BISAM/QISAM interface portion of the DCB. The 
DCB field corresponding to each DSCB field is shown in the following detailed 
description of the format-2 DSCB. The format-2 DSCB is shown in Figure 60. 


e The extension (format-3) DSCB is required on each volume of a data set that contains 
more than three extents. It contains as many as 13 additional extent entries, 
permitting a maximum of 16 extent entries per volume. 


Detailed descriptions of DSCBs are given in Data Areas. 
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bytes 





DS2L2MEN 







DS23MIND 











20(14) DS2L3MIN 
25(19) 


Reserved 





DS2LPDT 


{ 
| 44(2C) DS2FMTID 45(2D) DS2NOLEV 46(2E) DS2DVIND 47(2F) DS21RCYL 


Figure 60 (Part 1 of 2). Format-2 DSCB 
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(Continued) 







DS21RCYL (cont.) 50(32} DS2LTCYL 


52 (34) DS2CYLOV 53(35) DS2HIRIN 54(36) DS2HIRPR 55(37) DS2HIROV 


56(38) DS2RSHTR §7(39) DS2HIRTI 58 (3A) ~ DS2HITOV 59(3B) DS2TAGDT 
DS2TAGDT (cont.) 61(3D) DS2RORG3 
64(40) DS2NOBYT 66(42) DS2NOTRK 67(43) DS2PRCTR 


DS2PRCTR (cont.) 71(47) DS2STIND 


72(48) 






DS2CYLAD 
79(4F) 


DS2ADLIN 


86 (56) 


DS2ADHIN 


93(5D) 


DS2LPRAD 


101 (65) DS2LTRAD 


106(6A) 


DS2LCYAD 111(6F) 





DS2LMSAD 


116(74) . 
DS2LOVAD 


124(7C) DS2BYOVL 126(7E) DS2RORG2 


128(80) DS20V RCT | 130(82) DS2RORG1 
132(84) DS2NIRT 135(87) 


DS2PTRDS 






Figure 60 (Part 2 of 2). Format-2 DSCB 
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Offset 
0(0) 


1(1) 


8(8) 


13(D) 


20(14) 


25(19) 


36(24) 


44(2C) 


45(2D) 
46(2E) 


47(2F) 


50(32) 


52(34) 


53(35) 


54(36) 


55(37) 


56(38) 


57(39) 


58(3A) 


59(3B) 


61(3D) 


64(40) 


66(42) 


Field Name 


DS22MIND 


DS2L2MEN 


DS23MIND 


DS2L3MIN 


DS2LPDT 
DS2FMTID 


DS2NOLEV 
DS2DVIND 


DS21IRCYL 

DS2LTCYL 
DS2CYLOV 
DS2HIRIN 


DS2HIRPR 


DS2HIROV 
DS2RSHTR 
DS2HIRTI 
DS2HIIOV 


DS2TAGDT 


DS2RORG3 


DS2NOBYT 


DS2NOTRK 


- 


Bytes 
l 


Field Description 


Contains hexadecimal code Q2 in order to 
avoid conflict with a data set name. 


Address of the first track of the 
second-level master index (in the 
form MBBCCHH). 


Contains the CCHHR of the last active 
index entry in the second-level master 
index. 


Address of the first track of the 
third-level master index (in the 


-form MBBCCHH). 


7 


Contains the CCHHR of the last active 
index entry in the third-level master 
index. 


Reserved. 


MBBCCHHR of the last prime track on 
the last prime cylinder. 


Format identification for format-2 
DSCB (EBCDIC “2”). 


Number of index levels. 


Number of tracks determining 
development of the master index. 


Contains the HHR of the first data 
record on each cylinder. ye 


Contains the HH of the last data 
track on each cylinder. 


Number of tracks of cylinder overflow 
area on each cylinder. 


Highest possible R on a track 
containing high-level index entries. 


Highest possible R on prime-data 
tracks for format-F records. 


Highest possible R on overflow data 
tracks for format-F records. 


Contains the R of the last data 
record on a shared track. 


Highest number of index entries that 
fit on a prime-data track. 


Highest R for independent overflow 
track. 


The number of records that have been 
tagged for deletion. This field is 

updated by the user during BISAM, scan 
mode, and load mode resume loading. 


The number of random references to fe 
overflow records other than the first 
overflow record in a chain. 


The number of bytes needed to hold the 
highest-level index in virtual storage. 


The number of tracks occupied by the 
highest-level index. 


~ 
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Offset 
67(43) 


71(47) 


72(48) 


79(4F) 


86(56) 


93(5D) 


101(65) 


106(6A) 
111(6F) 


116(74) 


124(7C) 
126(7E) 
128(80) 
130(82) 


132(84) 
135(87) 


Field Name 
DS2PRCTR 


DS2STIND 


DS2CYLAD 


DS2ADLIN 

DSZADHIN 
DS2LPRAD 
DS2LTRAD 


DS2LCYAD 
DS2LMSAD 


DS2LOVAD 


DS2BYOVL 
DS2RORG2 
DS2OVRCT 
DS2RORGI 


DS2NIRT 
DS2PTRDS 


Bytes 
4 


CA Ow 


Field Description 


The number of records in the prime- 
data area. 


Status indicators. 


Bits -- Bit Setting Meaning 

0 0 Reserved 

| l Key sequence to be 
checked 

2 I Initial load has been 
completed 

3-5 l Reserved (must remain zero) 

6 l Last block full 

7 | Last track full 


Address of the first track of the 
cylinder index (in the form 
MBBCCHH). 


Address of the first track of the 
lowest-level master index (in the 
form MBBCCHH). 


Address of the first track of the 
highest-level master index (in the 
form MBBCCHH). 


Address of the last record in the 
prime-data area (in the form 
MBBCCHHR). 


Contains the CCHHR of the last normal 
entry in the track index on the last 
cylinder. 


Contains the CCHHR of the last index 
entry in the cylinder index. 


Contains the CCHHR of the last index 
entry in the master index. 


Address of the last record written in | 
the current independent overflow area 
(in the form MBBCCHHR). 


The number of bytes remaining on the 
current independent overflow track. 


The number of tracks remaining in the 
independent overflow area. 


‘The number of records in the overflow 
area. 


The number of cylinder overflow areas 
that are full. 


HHR of the dummy track-index entry. 


If there are more than 3 extent segments 
for the data set on this volume, this 

field contains the address of a format-3 
DSCB (in the form CCHHR). Otherwise, 
this field contains binary 0’s. 


Ga Pe 
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Data Extent Block (DEB) 


Offset 


32(20) 
33(21) 
36(24) 
37(25) 
40(28) 
41(29) 
44(2C) 


45(2D) 


+0(0) 
+1(1) 
+4(4) 
+6(6) 
+8(8) 
+10(A) 
+12(C) 
+ 14(E) 


The ISAM open executors construct the data extent block (DEB). Open executor 
IGGO192A uses the DEBCHK (TYPE=ADD, AM=ISAM) macro to add the address of 
the DEB to the DEB table in protected storage. The DEB contains the extents of the 
opened data set, pointers to the unit control blocks (UCBs) for the extents, and the 
names of access method routines to be used. The ISAM-dependent, device-dependent, 
and subroutine name sections of the DEB are shown in Figure 61. 


Field Name 


DEBNIEE 
DEBFIEAD 
DEBNPEE 
DEBFPEAD 
DEBNOEE 
DEBFOEAD 
DEBRPSID 


DEBEXPTR 


DEBDVMOD 
DEBUCBAD 
DEBBINUM 
DEBSTRCC 
DEBSTRHH 
DEBENDCC 
DEBENDHH 
DEBNMTRK 


Load Mode Extension 


+0(0) 
+4(4) 
+8(8) 


DEBDCFA 
DEBPUT 
DEBRPSL 
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Bytes 


Description 


ISAM-DEPENDENT SECTION 


| 


Number of extents of independent index area 
Address of first index extent 

Number of extents of prime-data area (M=0 extent) 
Address of the first prime-data extent 

Number of extents of independent overflow area 
Address of the first overflow extent 


Identifiers for prime, index, or overflow areas on an RPS direct-access 
storage device 


Bits Meaning 

0 Prime area is on an RPS device. 

I Index area is on an RPS device. 

2, Overflow area is on an RPS device. 

3 An SIO appendage for RPS has been loaded. (This bit set by 
IGG0192K.) 

4-7 Reserved. 


Address of ISAM Access Method Dependent Section 


The device-dependent sections (one for each extent) are in the following 
order: prime extents, index extents, overflow extents. 


DEVICE-DEPENDENT SECTION 


No NY NYP NY NY NY WH 


Device modifier: file mask 

Address of UCB associated with this data extent 
Reserved zeros 

Cylinder address for the start of an extent limit 
Read/write track address for the start of an extent limit 
Cylinder address for the end of an extent limit 
Read/write track address for the end of an extent limit 


Number of tracks allocated to a given extent 


ISAM ACCESS METHOD DEPENDENT SECTION 


Reserved os, 
Address of the PUT processing module 
Address of the RPS SIO appendage 
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ISAM-dependent Section (Occurs only once) 


Device-dependent Section (Occurs only for each extent) 


ISAM Access Method Dependent Section 














Load Mode Extension 


scan Mode Extension 


Figure 61 (Part 1 of 2). ISAM Extensions to DEB 
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Offset Field Name Bytes Description : 


Scan Mode Extension 


+0(0) DEBDCBFA 4 Address of a field area for the data set associated with this DCB 

+4(4) DEBGET, DEBPUT 4 Address of the Get processing module 

+8(8) DEBWKPT4 4 Address of the UCB 

+12(C) DEBWKPTS5 4 Pointer to the Get appendage module ~ 

+ 16(10) DEBCREAD 4 Address of channel-end appendage for Read 

+20(14) DEBCSETL 4 Address of channel-end appendage for SETL 

+24(18) DEBCWRIT 4 Address of the channel-end appendage for Write 

+28(1C) DEBCCHK 4 Address of the channel-end appendage for Write-validity-check 

+32(20) DEBCREWT 4 Address of the channel-end appendage for Rewrite 

+36(24) DEBCRECK 4 Address of the channel-end appendage for Recheck 

+40(28) DEBAREAD 4 Address of the abnormal-end appendage for Read 

+44(2C) DEBASETL 4 Address of the abnormal-end appendage for SETL 

+48(30) DEBAWRIT 4 Address of the abnormal-end appendage for Write 

+52(34) DEBACHK _ 4 Address of the abnormal-end appendage for Write-validity-check 

+56(38) DEBAREWT 4 Address of the abnormal-end appendage for Rewrite 

+60(3C) ( DEBARECK 4 Address of the abnormal-end appendage for Recheck 

+64(40) DEBRPSS 4 Address of the RPS appendage 

BISAM Extension 

+0(0) DEBDCBFA 4 Address of a field area for the data set associated with this DCB 

+4(4) DEBDISAD 4 Address of the privileged module entered when a BISAM macro 
instruction is executed 

* +8(8) DEBWKPT4 4 Address of the Part 1 appendage module (abnormal and channel-end 

appendages) 


BISAM Extension 


Subroutine Name Section (Occurs once for each subroutine) 


+0(0) DEBSUBID 
















Figure 61 (Part 2 of 2). ISAM Extensions to DEB 
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Offset Field Name Bytes Description 

+12(C) DEBWKPT5 4 Address of the Part 2 appendage module (abnormal and channel-end 
appendages) 

+ 16(10) DEBFREED 4 Address of the dynamic buffering module 

+20(14) DEBRPSIO 4 Address of the RPS SIO appendage module 

+24(18) DEBSIOA2 4 Address of the dynamic-buffering SIO appendage if the user has not 


specified ADDRSPC=REAL 


Note: The three SIO appendages (channel program splitting, dynamic buffering, and rotational position sensing (RPS), and the three 
DEB fields (DEBSIOA, DEBSIOA2, and DEBRPSIO) form a pushdown list controlled by the presence or absence of the appendages. 
The priorities of the appendages are channel program splitting, dynamic buffering, and RPS and the order in which the fields are used 
is DEBSIOA, DEBSIOA2, and DEBRPSIO. 


SUBROUTINE NAME SECTION 


+0(0) DEBSUBID 2n Subroutine identification. Each access method subroutine, appendage 
subroutine, and IRB routine has a unique 8-byte name. The low-order 
two bytes of each routine name are in this field if the subroutine is loaded 
by the open routine. 


Input/Output Block (IOB) 


The input/output block (IOB) contains information required by the I/O supervisor to 
perform an input/output operation. The ISAM routine constructs an IOB for each such 
operation. 


The IOB consists of 40 bytes of standard information as described in Data Areas. The standard 
information is common to all access methods. BISAM and QISAM (scan mode) use extensions 
of the standard IOB, and QISAM uses an IOB prefix. The ISAM extensions and prefix are 
shown in Figure 62. 


Offset Field Name Bytes Field Description 
QISAM Prefix 
-4(-4) 4 Event control block. 
BISAM Extension 
40(28) IOBCCWAD 4 Address of first CCW of channel program or address of buffer after 
completion of aREAD KU (BISAM dynamic buffering). 
44(2C) IOBINDCT 1 Indicators. 
Bit Bit Setting Meaning 
~ 0 1 Remove channel program from queue. 
l 1 IOB is on the unscheduled queue. 
2 0 DECBAREA (+6) points to overflow record data; 
l DCBMSWA points to the key and data of an 
overflow record. 
3 0 DECBKEY points to overflow record Key. 
| DCBMSWA (+8) points to overflow record key. 
46 0 Reserved. 
7 0 Normal channel end has occurred. 
1 Abnormal channel end has occurred. i 
45(2D) IOBUNSQR 1 Reason for unscheduled or error queue. 
Bit Bit Setting Meaning 
0 1 CP 1 or CP 2 busy. 
] | No CP 4, CP 5, or CP 6. 
2 I No CP 7. 
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Offset Field Name Bytes Field Description | 
3 i. WRITE KN is in effect (unscheduled IOB is for a | 
WRITE KN). | 
4 I WRITE KN 1s in effect (unscheduled IOB is for | 
READ or WRITE K). 
. 5 I An error condition is associated with this IOB. 
6-7 0 - Reserved. = 
46(2E) IOBAPP | Appendage code (see “Diagnostic Aids” ). 
47(2F) IOBASYN | : Asynchronous routine code (see “ DiagnosticAids”). 
48(30) IOBCOUNT l Write-check counter. 
49(31) IOBFCHAD 3 Forward chain address. 
52(34) IOBBCHAD 4 Backward chain address. 
56(38) IOBCCW1 8 Set sector CCW for use with RPS direct-access storage devices. 
64(40) IOBCCW2 8 TIC CCW to the channel program, used with RPS devices. 
QISAM Extension (scan mode) 
40(28) QIUEXTEN 2 Appendage codes (see “Diagnostic Aids’). 
WIOEXTEN 





OQISAM Prefix -_ 


- | -4(-4) Event Control Block 
$ 


BISAM Extension 


| 40(28) {OBCCWAD 
44(2C) lOBINDCT 45(2D) IOBUNSQR 46(2E) -. lOBAPP 47(2F) lIOBASYN 


48 (30) lIOBCOUNT 49(31) lIOBFCHAD 







| | l 


52(34) |OBBCHAD 










56(38) 
lOBCCW1 


64(40) 
lOBCCW2 








8 
OQISAM Extension (scan mode) 

Figure 62. ISAM Extensions to IOB 

168 MVS/XA ISAM Logic . ea 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


oo Buffer Control Block (BCB)—BISAM ; 


The buffer control block (BCB) used to control dynamic buffering in BISAM is structured by 
the stage 2 open executor, IGG0192B, if the problem program has requested dynamic buffering. 
If the user does not specify the number of buffers desired, two buffers are provided. The fields 
of the BISAM BCB are shown schematically in Figure 63. 


The following describes the contents and uses of the fields of the BISAM BCB. 


Offset Field Name Bytes Field Description 


0(0) BCBFIOB 4 If there are not enough buffers available for the number of READ K 

: from the start I/O appendage routine, activates this field as a pointer to 
the first IOB that needs a buffer. Later, when a buffer has become 
available (because it was released by either the WRITE K macro 
instruction or the FREEDBUF macro instruction), the dynamic buffering 
routine, entered through one of those macro routines, updates BCBFIOB 
to point to the next IOB that needs a buffer. If there are no more IOBs on 
queue for a buffer, this field is then reset to 0. Initially, this field is set to 
O by the ISAM open module, IGGO192B. 


4(4) BCBLIOB 4 If there are not enough buffers available for the number of READ K or 
READ KU requests issued, the dynamic buffering routine, entered from 
the start I/O appendage routine, activates this field as a pointer to the 
last IOB that needs a buffer (the IOB of the latest Read requested). The 
IOB forward chain address (IOBFCHAD) of the IOB previously pointed 
to by this field, if BCBLIOB has been previously activated, is also set to 
point to this latest IOB. IOBFCHADSs thus provide the linkage between 


—____—. 4 by tes -—A AA > 


A 


4(4) BCBLIOB 


8(8) BCBNAVB 


12(C) BCBSIZE 
16(10) Reserved (for doubleword alignment) 
20(14) First Buffer (Link Field) | 


First Buffer (continued) 


Second Buffer (Link Field) 


Second Buffer (continued) 


Nth Buffer (Link Field) 


Nth Buffer (continued) 





'The first buffer begins at 20(14) if buffer alignment specified was fullword; it begins at 24(18) if alignment was at doubleword. ; 


Figure 63. Fields of the BISAM Dynamic Buffering Buffer Control Block 
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Offset Field Name Bytes Field Description 
BCBFIOB and BCBLIOB. BCBLIOB is initialized and reset whenever -_ 
BCBFIOB is. 

8(8) BCBNAVB 40 Points to the next buffer available to a READ K or READ KU request. 


Initially, BCBNAVB is set to point to the first buffer by ISAM open 

module IGG0192B. The dynamic buffering routine is entered from the 

start I/O appendage routine to select the buffer pointed to by this field 

when a read is issued. The link field of the buffer selected is placed into 

BCBNAVB. When a buffer has been released either by a FREEDBUF 

macro instruction or because it has been written back into the data set, 

entry is made to the dynamic buffering routine. If an IOB is waiting for a 

buffer (see BCBFIOB), the buffer just released is assigned to the IOB, 
and an EXCP is issued. If, however, the IOB-queue is empty, the buffer is 
placed on the available queue. This is accomplished by placing a pointer 
to the buffer in BCBNAVB after moving the contents of BCBNAVB into 
the link field of the buffer. When there are no buffers on the available 
queue, BCBNAVB5 contains 0. 


12(C) BCBSIZE 4 Total size of the BCB and the attached buffers. Calculated by open 
module IGG0192B. Used by close module IGG0202A to free the buffer 
control block and the associated buffers. 


20(14) First Buffer 4 (first If a buffer is on the available queue, its link field contains 
(Link Field) 4 bytes the address of the following buffer to be made available. When a 
of each buffer is not on the available queue, these 4 bytes are used as a 
buffer) part of the buffer. 


Buffer Control Block (BCB)—QISAM 


The BCB used in QISAM differs in format from the BISAM BCB. Figure 64 pictures 

schematically the fields of the QISAM BCB. This BCB may result from a GETPOOL or 
BUILD macro instruction issued by the processing program, or it may be constructed by the aa 
Stage 1 open executors. The information it contains is needed by the Stage 2 open executors. 


The following is a description of the contents and uses of the fields of the QISAM BCB. 


” Offset Field Name Bytes Field Description 
0(0) Address of 4 Load mode open module IGGO0192G uses this address 
first buffer to initialize the load mode buffer control table field named IOBABUF. 


Scan mode open module IGG01929 uses the address (in conjunction with 
the link field of each buffer) to initialize its channel programs. 


4(4) Number of 2 The number of buffers in this buffer pool. 
buffers 
6(6) Length of 2 Scan mode open module IGG01929 uses this field to 
each buffer ensure the, buffer size is adequate for the records to be retrieved. 


Buffer Control Table (IOBBCT) 


The buffer control table, used by QISAM load mode to control the filling of buffers, is 
initialized by Stage 2 Open executor module IGG0192G. The area for the IOBBCT is 
obtained by Stage 1 Open executor module IGGO192B. The fields of the buffer control 
table are shown schematically in Figure 65. 








4 bytes ——- ADA  __ 


0(0) Address of First Buffer 
4(4) Number of Buffers : 


Bit 1 of Byte 4 set to 1 indicates fullword all | 
gnment m~ 
( 






Length of Each Buffer 


Figure 64. Fields of the QISAM Buffer Control Block 
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The following is a description of the contents and uses of the fields of the IOBBCT. 


Field Description 


General I/O conditions pertaining to all buffers. IOBFLAGS is initialized 
by open executor IGG0192G. At this time, bit 4 is set; all other bits are 


Offset Field Name Bytes | 
0(0) IOBFLAGS. 1 


4(4) lOBB 5(5) 


{OBS 
(1st Buffer) 





lOBS 


4nt+5 
(nth Buffer) | 





Figure 65. QISAM Load Mode Buffer Control Table 


reset. 
Bit 
0 


Meaning 


When the end-of-buffer routine schedules an EXCP to use CP 
18/CP 20 (to write data records and the associated track indexes), 
the bit is set on to indicate CP 18/CP 20 are busy. The CP 18/CP 
20 appendage routine resets the bit. 


When the end-of-buffer routine cannot schedule the EXCP 
because CP 18/CP 20 are busy (bit 0 = 1), this bit is set. It is 
interrogated after every PUT macro instruction and, if set, another 
attempt is made to schedule the EXCP. If the attempt is successful, 
the bit is reset. 


When bit 1 = 1 and an attempt is being made to write previously 
filled buffers, but the current buffer is not full, this bit must be set 
to tell the end-of-buffer routine, which schedules the EXCP, to 
return to the put routine. 


This bit is set by close executor module IGG0202I. It ensures 
return to closing routines after using channel programs to 
complete processing of the final buffers. 


This bit is set by the put routine (in move mode only) when the last 
record PUT filled a buffer. It is interrogated by the put routine to 
determine if a new buffer must be initialized before moving the 
current record and is reset by the beginning-of-buffer routine after 
the new buffer has been initialized. 


When the put routine determines that there is enough space on the 
current track-index track for only one more normal and overflow 
track-index entry, it sets this bit. Prior to this determination, it has 
reset this bit. If the put routine determines that an end-of-cylinder 
condition exists, it interrogates the bit to see if the extra 
track-index dummy entry will fit on the current track (bit 5 = 0), or 
whether a new track is.needed (bit 5 = 1). 


This bit is set by close executor module IGGO0202I. It ensures return 
to closing routines after completing the data set’s high-level index. 


IOBPTRA 


IOBPT RB 


lIOBABUF 
(1st Buffer) 





IOBABUF 
(nth Buffer) 
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Offset Field Name 
1(1) IOBPTRA 
4(4) IOBB 

5(5) IOBPTRB 
4n+4 IOBS 
where n is 

the buffer 

number ‘ 


172 MVS/XA ISAM Logic 


Bytes 


Field Description ° 


7 


Set by open executor module IGGO0192R (or IGGO192U) if the 
data set consists of unblocked records whose relative key position 
(RKP) is 0. The bit is interrogated during initialization of CP 18. 


This field serves as a pointer to the address of the first buffer of the group 
that is written next. During the execution of CP 18, it points to the 
address of the first buffer of the group currently being written. When CP 
18 is completed, the appendage routine updates this field to point to the 
address of the first buffer of the next group. IOBPTRA is needed to 
initialize CP 18 before CP 18 is executed. IOBPTRA is initialized by open 
executor module IGGO0192G to point to the address of the first buffer. 


IOBB contains the number of buffers filled but not yet scheduled for 
writing. It is updated by the put routine as each buffer is filled and reset 
to 0 by the end-of-buffer routine when the buffers are scheduled for 
writing. IOBB is initialized to 0 by open executor module IGG0192G. 


This field serves as a pointer to the address of the buffer currently being 
filled. It is updated when the beginning-of-buffer routine is called to 
prepare a new buffer before executing a PUT command. IOBPTRB is 
initialized by open executor module IGG0192G to point to the address of 
the first buffer. . 


There is one status byte (IOBS) for each buffer. The bits are used 
to indicate conditions peculiar to each buffer. All status bits 
(except bit 0) are initially reset by open executor module IGG0192G. 


Bit 
0 


Meaning 


Set (by open executor module IGG0192G) if this is IOBS field for 
buffer N (last buffer); otherwise reset. Interrogated to ensure proper 
sequence of buffering when going from last to first buffer. 


A 2-bit code indicates buffer availability as follows: 


00 — buffer available—set by CP 18/CP 20 appendage routine 
after writing; interrogated by beginning-of-buffer routine 
prior to using buffer again. 


01 — _ contents of buffer caused permanent write error—set by 
CP 18/CP 20 appendage routine; interrogated by 
beginning-of-buffer routine prior to using buffer again. 


10 — _ buffer full, but not yet scheduled for writing—set by put 
routine when buffer becomes full; prevents refilling of 
buffer before writing. 


11 — _ buffer scheduled for writing—set by end-of-buffer routine 
when scheduled; interrogated by appendage routine to 
reset these bits and to update IOBPTRA. 


This bit is set by the beginning-of-buffer routine when it determines 
that this buffer, when written, will begin a new extent. Interrogated, 
then reset, by end-of-buffer routine before scheduling writing of this 
buffer in the next extent. 


This bit (the T-Bit) is set by the beginning-of-buffer routine when it 
determines that this buffer will be the last written on a track. 
Interrogated by end-of-buffer routine so that CP 20 is executed to 
write the track index. The T-Bit is reset by the CP 18/CP 20 
appendage routine. 


This bit (the C-Bit) is set by the beginning-of-buffer routine when it 
determines that this buffer, in addition to being the last written on a 
track, is also the last written on a cylinder. Interrogated by the 
end-of-buffer routine so that CP 21 is executed to write the cylinder 
index when necessary. The C-Bit is reset by the CP 21 appendage 
routine. 
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Offset Field Name Bytes _ Field Description 
Bit Meaning 


6 This bit (the PF-Bit) is set by the beginning-of-buffer routine when it 
determines that this buffer is the first buffer written on acylinder ‘ 
and track-sharing is in effect. CP 19 is used to preformat the shared 
track. The end-of-buffer-routine interrogates this bit and does not 
schedule a write on the new cylinder until the CP 19 appendage 
routine has reset the bit. 


7 Not used. 
4n+5 IOBABUF 3 There is one IOBABUF field for each buffer, and it contains 
where n is the address of its associated buffer. Stage 1 open executor 
the buffer module IGG0192B provides the address of the first buffer 
number (through DCBBUFCB) and Stage 2 open executor module 


IGG0192G uses the buffer link field of each buffer 

to fill out the remaining IOBABUFs. (When buffers 

are structured, the first four bytes of each 

buffer—the buffer link field—contain the address of the 
next buffer in the chain. After these addresses are put 

into the IOBBCT, these four bytes become part of the 
buffer.) Buffer addresses are used for initialization of 

CP 18 and provide the storage location into which records 
are to be moved. 


QISAM Load Mode DCB Work Area 


The QISAM load mode DCB work area is pointed to by the DCBWKPT1 field of the 
DCB. The DCB work area format is shown in Figure 66. 
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~<@ $$ SSS P8 bytes 


0(0) ISLECBA 


ISLIOBA 


| 44(2C) ISLECBB | 


ISLIOBB 


| 88(58) ISLECBC 92(5C) 


ISLIOBC 
















132 (84) 


ISLAREAZ 


368 (170) ISLNDAT 










380(17C) ISLODAT 


390(186) =| 391(187) —=C*d 
Reserved a ISLBUFNO 


378(17A) Reserved 





Figure 66 (Part 1 of 2). QISAM Load Mode DCB Work Area 
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a 


392(188) ISLBUFN 396(18C) ISLMVC 
400(190) ISLMVCT 404(194) 


ISLVRSAV 





476(1DC) 


ISLAPSAV 


516(204) 


ISLWRSAV 


[peor se 
620(26C) CL1AD/ISLF8AD 
636(27C) CO40AD/ISLPAAD 


640(280) CQ45AD/ISLF1IAD 644(284) 


ISLVPTRS (pointed to by DCBWKPT6) 


704(2C0) ISLIGAP 706(2C2) ISLLGAP } 708(2C4) ISLAPSSS 


Variable-length areas follow. 
Pointed to by ISLVPTRS 
Area Y (See Figure 67) 

Key save area 

Buffer control table 
Channel programs 





Figure 66 (Part 2 of 2). QISAM Load Mode DCB Work Area 





Offset Field Name Bytes Description 

0(0) ISLECBA 4 The ECB for CP 18 and CP 20. eg 
4(4) ISLIOBA 40 The IOB for CP 18 and CP 20. 

44(2C) ISLECBB 4 The ECB for CP 21. 

48(30) ISLIOBB 40 The IOB for CP 21. 

88(58) ISLECBC 4 The ECB for CP 19 and CP 91. : 

92(5C) ISLIOBC 40 The IOB for CP 19 and CP 91! 
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Offset 
132(84) 


220(DC) 


324(144) 


327(147) 
328(148) 


332(14C) 


336(150) 


Field Name 


‘ ISLAREAZ 


ISLIXLT 


ISLNIRT 


ISLHIRT 
ISLCBF 


ISLBMPR 


ISLFBW 
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Bytes 
88 


104 


Description 


This area contains the data field for cylinder overflow records and the 
count field for ten index entries. These are used to preformat shared 


tracks during the put load mode function and to pad dummy track 


indexes on unused cylinders during the close routine. 


Area Z appears as follows: 


CTRL.RCD.| COUNT 1 


COUNT 10 





v4 2+6(6) Z2+14(E) 2+78(4E) 
The index location table contains the direct-access device addresses for 


high-level indexes. 


1 byte 
not used 
YY 


IND. BEGIN STEPPING END 


0(0) 





MBBCCHHR 


MBBCCHHR | MBBCCHHR 





26(1A) MBBCCHHR| MBBCCHHR 





MBBCCHHR 















92 (34) MBBCCHHR;) MBBCCHHR 


MBBCCHHR 


There is an indicator byte and three device addresses for each level of 
index; cylinder, and up to three master index levels. 


MBBCCHHR 








78(4E) MBBCCHHR MBBCCHHR 


The begin and end addresses are set during execution of the open routine 
according to formulas based on space allocation. The stepping addresses 
are used during data set creation to point to the current index entry 
location at each level. The indicator byte is as follows: 


Bit O = | for last level 
= 0 otherwise 


1 = 1 for dummy switch on 
= QO for dummy switch off 


2 = 1 forcurrent level 
= 0 otherwise 
3 = | during close 
_= 0 otherwise 
4 = 1! when track index has been written but not cylinder index 
= O when cylinder index has been written | 
5 = 1! when valid record added to data set on this load 


= 0 when no valid records added 
Indicator bit 4 only applies to the first level of the index location table. 


HHR of the dummy track-index entry. It is used in close to signal the 
end-of-track index padding. 


The number of index entries that fit on a prime-data track. 


Buffer control pointer. This field contains the address of the current 
record in the current buffer. It ts used to move records into a buffer. 


Size of individual records (equal DCBLRECL or DCBLRECL + 
DCBKEYLE). This field is used to bump ISLCBF to next record location 
in a buffer. 


The number of buffers scheduled to be written. This number is 
determined immediately following each execution of CP 18. It is the 


















ca 
& 


Offset 


340(154) 
344(158) . 
352(160) 
360(168) 
368(170) 


378(17A) 
380(17C) 


390(186) 
391(187) 
392(188) 
396(18C) 


400(190) 


404(194) 


476(1DC) 


516(204) 


580(244) 
584(248) 
588(24C) 
592(250) 


596(254) 


600(258) 


Field Name . 


ISLEOB 

ISLNCNT 
ISLOCNT 
ISLDCNT 


ISLNDAT 


ISLODAT 


ISLBUFNO 
ISLBUFN 
ISLMVC 


ISLMVCT 


ISLVRSAV 


ISLAPSAV 


ISLWRSAV 


TSTWKIC 
TSTWK2C 


ISLNOENT 
ISLOFFST 


ISLD 


‘\ 
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Bytes 


72 


40 


& ff Lf FA 


Description 


number of buffers (DCBBUFNO) minus one, or the number of buffers 
that completes a track, whichever is smaller. 


End-of-buffer address. When ISLCBF and ISLEOB are equal, a buffer 
has been filled. 


CCHHRKDD. This is the count field for the current normal track-index 


entry. 


CCHHRKDD. This is the count field for the current overflow track-index 
entry. 


CCHHRKDD. This is the count field for the current dummy track-index 
entry. 


MBBCCHHREP. This is the data field for the current normal track-index 


entry. 
Reserved. 


MBBCCHHREFEP. This is the data field for the current overflow 
track-index entry. 


Reserved. 
Number of buffers. ISLBUFNO equals DCBBUFNO. 
Address of slot N in buffer control table. 


The count used for the executed move at ISLFX21 when moving a 
record from the user’s work area into a buffer. This count equals R-1 
where R is the remainder when dividing ISLBMPR by 255. If R=0, 
ISLMVC is set decreased (see ISLMVCT). 


The count used for the BCT at ISLFX21 when moving a record from the 
users work area into a buffer. This is the number of 255-byte moves, plus 
one, needed to move the record. This count equals Q+1 where Q is the 
quotient when dividing ISLBMPR by 255. When R, alone, equals 0, 
ISLMVCT is set’ to equal Q. 


Index register save area. This area is used during load mode macro time 
to save index registers within load mode. 


Index register save area. This area is used during load mode appendage 
time to save index registers belonging to either the I/O supervisor or load 
mode close. 


Index register save area. This area is used during load mode close to save 
index registers belonging to common close. 


Open work field. 
Open work field. 
Reserved. 


Number of spaces for track-index entries remaining on the current 
track-index track. 


Size of WRITE channel commands in CP 18. If unblocked records, 
RKP=0, ISLOFFST=8. Otherwise, ISLOFFST=24. 


At Macro Time: 
ISLD is the displacement from the start of CP 18 to the CC flag in 
the first WRITE CCW in the chain. If unblocked records, RKP=0, 
ISLD=28. Otherwise, ISLD=44. (ISLOFFST+20) 
=f, 


During Close: ™ 
ISLD is a set of switches used when padding indexes: 
Bit O = 1 for newcylinder; 0 otherwise 


l 
2 


| for end entry; 0 otherwise 


1 for chained entry; 0 otherwise 
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Offset Field Name 
604(25C) ISLFSTBF 


608(260) ISLLSTBF 


612(264) ISLCCFAD 


616(268) ISLKEYAD 


620(26C) CLIAD 


ISLF8AD 
624(270) CM1AD 
ISLFXAD 
628(274) CQIAD 
ISLFYAD 
632(278) CQTIAD 
ISLFZAD 
636(27C) CQ40AD 
ISLPAAD 
640(280)  CQ45AD 
ISLFIAD 


644(284) ISLVPTRS 


704(2C0) ISLIGAP 


178 MVS/XA ISAM Logic 


Bytes 
4 


60 


Description 


Pointer to first buffer scheduled for writing. This is the slot number in the 
buffer control table associated with the first buffer to be written in the 
current output chain. 


Pointer to last buffer scheduled for writing. This is the slot number in the 
buffer control table associated with the last buffer to be written in the 
current output chain. 


Address of CC flag in the last WR CKD CCW in CP 18 chain. This CC 
flag is turned off to stop the write chain. 


Address of the key in the last record that is placed on the current 
prime-data track. This key becomes the track-index key for the given 
track. 


Address of the CP 18 skeleton (Open). 
Address of instruction at ISLF800+6=PUT base (Close). 


Address of the CP 19 skeleton (Open). 
Address of the instruction at ISLFX20 (Close). 


Address of the CP 20 skeleton (Open). 
Address of the instruction at ISLFY0O1 (Close). 


Address of CP 20 write-check extension skeleton (Open). 
Address of the instruction at ISLFZO1 (Close). 


Address of the CP 21 skeleton (Open). 
Address of the instruction at ISLPAO1 (Close). 


Address of CP 21 write-check extension skeleton (Open). 


Address of variable-length areas and channel programs. 


0(0) — A (Area Y) (Figure 67) 

+4(4) — _ A (Key save) 

+8(8) — A (IOBBCT) 

+12(C) — A (CP 188) 

+16(10) — A(CP19) 

+20(14) — A (CP 20A or 0’s)—full track-index write option 

+24(18) — A(CP21) 

+28(1C) — Size of DCB work area—ISLCOMON (for FREEMAIN 
in Close) 

+32(20) — Size of channel program area for FREEMAIN 


+36(24) — A(TISA) 
Bit 0—full track-index write 
Bit 1—successful GETMAIN 


+40(28) — A (CP 31A/31B)—resume load 

A (CP 20B or 0’s)—full track-index write option 
+44(2C) — A (CP 20C or 0’s)—full track-index write option 
+48(30) — ISLFXWK1 (macro work field) 
+52(34) — ISLFXWK2 (macro work field) 
+56(38) — ISLF9WK1 (work field) 


Note: When there is a permanent I/O error, ISLVPTRS+ 36 is 
overlaid with the address of the buffer that caused the error if CP 18 
failed; otherwise, it is set to 0. ISLVPTRS+40 is overlaid with the 
SYNAD address and ISLVPTRS+44 is overlaid with the second word 
of the IOB. 


Overhead (record gap) for other than the last record. Used in RPS device 
space allocation calculations for VLR track capacity of prime-data 
records, 





N 


a 
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Offset Field Name Bytes Description 

706(2C2) ISLLGAP 2 Last record overhead for RPS devices. Used to calculate VLR track 
capacity of prime-data records. 

708(2C4) ISLRPSSS 4 Sectors values used in CP 18, CP 19, CP 20, and CP 21 for RPS devices. 





HIGH LEVEL INDEX ENTRY 
COUNT DATA 


: CCHHRKDD MBBCCHHRFP 


y+8(8) 


ff 


TRACK INDEX ENTRIES 


NORMAL OVERFLOW 
COUNT DATA COUNT DATA 
CCHHRKDD MBBCCHHRFP CCHHRKDD MBBCCHHRFP 
y+18(12) y+26(1A) y+ 36(24) y+44(2C) 


DUMMY ENTRY 
CCHHRKDD KEY OF ALL 1s MBBCCHHRFP 
y+54(36) y+62(3E) y+62(3E) +key length 


Figure 67. Area Y: QISAM Load Index Fields 


QISAM Scan Mode DCB Work Area 


The QISAM scan mode DCB work area is pointed to by the DCBWKPT1 field of the 
DCB. The DCB work area format is shown in Figure 68. 





Offset Field Name Bytes Description 
0(0) WIECBI 4. Input ECB. 
4(4) W IIOBI 44 Input JOB and extension. This includes: 
; 40 IOB. 
44(2C) WIIEXTEN 2 Input appendage code. 
46(2E) WICPNUP z . Save area for schedule routine. 
48(30) W1ECBO 4 Output ECB. 
52(34) WIIOBO 44 Output IOB and extension. This includes: 
40 [OB. 
92(5C) W1OEXTEN 2 Output appendage code. 
: 8 — Write 
C — Check : 
10 — Rewrite 
14 — Recheck a a 
94(SE) WI1SAV7 2 Save area for schedule routine. 
96(60) WIOSBITI : | Overall status, byte 1. 


Bit O Scan mode . 3 
| End of data set 
2 Overflow 
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Ve 
ve 
7 Offset Field Name Bytes Description . 
3 Read track index 
4 Key found (for SETL K) 
5 Unreachable record 
6 IOBI completion . 


7 IOBO completion - 
97(61) W10OSBIT2 I Overall status, byte 2. 
Bit 0 Unwritable record 
1 Work bit for write appendage 
2 Same-cylinder indicator 


3 Shared track 





a SSM 8 by tes — 









W1ECBI 





W1I0BI 


AGC) WHlEXTEN 
W11OBO 
104(68) W1LPDR 

















ra 





W1QTABLE 


128(80) W1FRIST 132(84) W1FRLAST 


136(88) Reserved 138(8A) WI1FREEC 140(8C) W1RD1ST 


144(90) W1RDLAST 148(94) W1READR 150(96) W1READC 
156(9C) W1USLAST 


152(98) W1USIST 


160(A0) Reserved 162(A2) W1IUSERC 164(A4) W1PX1ST 


172(AC) Reserved 174(AE) WIPUTXC 


176(B0O) W1IWRIST 180(B4) W1IWRLAST 


-168(A8) W1PXLAST 


184(B8) Reserved 186(BA) WIWRITEC 





Figure 68 (Part 1 of 2). QISAM Scan Mode DCB Work Area 
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Offset Field Name Bytes Description 


4 GET—SETL communication 
5 Scheduling 


6 RELSE 
7 SETL K blocked 
98(62) WI1OSBIT3 1 Overall status, byte 3. 


Bit O Buffer size 
1 CLOSE—ESETL communication 


2 Bad set indicator for write-checking 


3-7 Unused 
(Continued) 


W1IWAREA 188(BC) W1WCOUNT 
W1WCOUNT (cont.) 196(C4) W1WCNXDM 
W1WCNXDM (cont.) 204(CC) 


WiIWOVFL 



























214(D6) 









W1WDNXDM 


aro worries were 

















328(148) W1WDCXDM - 
338(152) 339(153) 
WIISECT | WIOSECT 


WIICPEXT 








340(154) W1DCBFA 


344(158) 







360(168) 







W10CPEXT 





376(178) WIRDCNT | 
384(180) W1RDSECT 


396(18C) 


392(188) WICNSSAV 


W1RPSSA 










1412(19C) WITOTAL | 414(19E) WIRECLEN 


ee 420(1a4) | 421(1a5) | 422(1A6) | 423(1A7) 
416(1A0)  WIOVLE 
16t7A0) OVEEN  [418A2)_—WIFSTSH Ts wirpscr | wiresc2 |- wirpsi1 | WiRPSI2 


Figure 68 (Part 2 of 2). QISAM Scan Mode DCB Work Area 
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Offset 


99(63) 
100(64) 
104(68) 
112(70) 
116(74) 
120(78) 
122(7A) 
123(7B) 
124(7C) 
128(80) 
128(80) 
132(84) 
136(88) 
138(8A) 
140(8C) 
144(90) 
148(94) ¢ 
150(96) 
152(98) 
156(9C) 
160(A0) 
162(A2) 
164(A4) 
168(A8) 
172(AC) 


174(AE) 
176(BO) 
180(B4) 
184(B8) 
186(BA) 
188(BC) 
188(BC) 
196(C4) 
204(CC) 
214(D6) 
224(E0) 
226(E2) 
228(E4) 
232(E8) 
236(EC) 
240(F0) 
244(F4) 


Field Name 


WIICNOT 
WIiKEYBLK 
WILPDR 
WI1CBF 
WIEOB 
W1COUNTR 
PRIMEIND 
FIXIND 
WIFCPS 
W1QTABLE 
WIFRIST 
WIFRLAST 


WIFREEC 
WIRDIST 
WIRDLAST 
WIREADR 
W1IREADC 
WIUSIST 
W1IUSLAST 


W1IUSERC 
WIPXIST 
WIPXLAST 


WIPUTXC 
WIWRIST 
W1WRLAST 


W1WRITEC 
WIWAREA 
W1IWCOUNT 
W1IWCNXDM 
WIWOVFL 
WIWDNXDM 
W1WPLEN 
W1CURLEN 
WITEMPSA 
WIREGSV2 
WIREGSAV 
WIREGSV3 
W1CP23PT 
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Bytes 


ny f& fF CO 


DR ke = 
So . 


Nn f+ Bh NY NY FH FR NY NY Hh FL VY NY HK FA 


ny No fF HLH WN 


CoO Ow! 
ON 


Description 


fad 


BUFNO/2 — used to schedule input/output. 

Used by SETL K for address within the block of the requested record. 
Seek—Search address of the last prime-data record read. 

Current buffer address. 


End-of-buffer address. -- 


_ Counter used to count number of retries for Write-validity-checking. 


Switch for testing same device. 

Temporary storage. 

First Write channel program scheduled. 

Queue table (comprising the following fields) 

Pointer to first channel program on the Free queue. 
Pointer to last channel program on the Free queue. 
Reserved. 

Number of buffers on the Free queue. ~ 

Pointer to first channel program on the Read queue. 
Pointer to last channel program on the Read queue. 
Number of unused buffers on the Read queue. 

Number of buffers on the Read queue. 

Pointer to the first channel program on the User queue. 
Pointer to the last channel program on the User queue. 
Reserved. 

Number of buffers on the User queue. ' 
Pointer to first channel program on the PUTX queue. 
Pointer to last channel program on the PUTX queue. 


Reserved. 


Number of buffers on the PUTX queue. 

Poihtes to the first channel program on the Write queue. 
Pointer to the last channel program on the Write queue. 
Reserved. 

Number‘of buffers on the Write queue. 

Area for track-index entries (comprising the following four fields). 
Count of current index entry. 

Count of next normal or dummy entry. — 

Data of current overflow entry. 

Data of next normal or dummy entry. 

Byte length of work area. 

Length of current logical record. 

Temporary storage. 

Area to save contents of a register. 

Area to save contents of a register. 

Temporary storage. 


Address of CP 23. 











-_ 


Offset 


248(F8) 
'52(FC) 
256(100) 
328(1 48) 
338(152) 
339(153) 
340(154) 
344(158) 


360(168) 


376(178) 
384(180) 
392(188) 
396(18C) 
412(19C) 
414(19E) 
416(1A0) 
418(1A2) 
420(1 A4) 
421(1A5) 
422(1A6) 
423(1A7) 


BISAM DCB Work Area 


Offset 


0(0) 


4(4) 


8(8) 
9(9) 
10(A) 
11(B) 


12(C) 


16(10) 


Field Name 


WICP26PT 
WI1CP25PT 
WI1CP24 
W1WDCXDM 
WIISECT 
W10S/VSECT 
WIDCBFA 
WI1ICPEXT 


W1IOCPEXT 


WIRDCNT 
W1RDSECT 
WICNSSAV 
WIRPSSA 
WITOTAL 
W1IRECLEN 
WIOVLEN 
WIFSTSH 
WIRPSC!1 
WI1RPSC2 
WIRPSI1 
WIRPSI2 
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Bytes 
4 

4 

12 

10 


16 


Ny NY NY WN 


Description 


Cd 


Address of CP 26. 

Address of CP 25. 

CP 24—read track indexes. 

Data of current normal track-index entry (variable-length records only). 
Current input channel programsector value. 

Current output channel program sector value. 

Pointer to DCB field area. 

Extension to the input channel program used with an RPS device. Set 
sector and TIC to input channel program. 

Extension to the output (PUTX) channel program used with an RPS 
device. 

Read count of next block for channel program. 

Read sector of next block for channel program. 

Save area to restore TIC address CNS during overflow processing. 
Register save area for RPS processing. 

Byte count on track. 

Minimum record length, prime records. 

Minimum record length, overflow records. 

Byte count to first shared track. 

Lower limit cylinder overflow. 

Upper limit cylinder overflow. 

Lower limit independent overflow. 


Upper limit independent overflow. 


The BISAM DCB work area is pointed to by the DCBWKPT72 field of the DCB. The 
DCB work area format is shown in Figure 69. 


Field Name 


DCWFCP4 


DCWFCP7 


DCWNUCPS 
DCWNUCP4 
DCWNUCP7 
DCWNLSD 


DCWFIOBU 


DCWLIOBU 


Bytes 


4 


Description 


Pointer to the first available set of channel programs in the CP 4-CP 5-CP 
6 or CP 4CP SW-CP 6W queue. The second word of the second CCW in 
the channel program set points to the next set of channel programs. The 
pointer is 0 in the last set on the queue. If no set of channel programs is 
available, this field is 0. 


Pointer to the first available CP 7 or CP 7W. This queue is handled 
similarly to the one pointed to by DCWFCP4. 


The number of IOBs awaiting CP 1 or CP 2. 
The number of IOBs awaiting CP 4-CP 5-CP 6 or CP 4-CP 5W-CP 6W. 
The number of IOBs awaiting CP 7 or CP 7W. 


The number of high-level indexes searched on a device. This number ~ 


equals DCBNLEV, unless the highest level index is searched in virtual “ee 
storage, in which case the number equals DCBNLEV minus 1. 


Address of the first IOB in the queue of unscheduled IOBs. This field is 0 
if no IOBs are unscheduled. 


Address of the last IOB in the queue of unscheduled IOBs. This field is 0 
if no IOBs are unscheduled. 
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Offset Field Name Bytes Description “ 


20(14) DCWFUPDI 4 Address of the first IOB in the update queue, that is, the queue of IOBs 
for which a READ KU has been successfully completed, but for which no 
WRITE K has yet been issued. This field is O when the queue is empty. 













24(18) DCWLUPDI 4 Address of the last IOB in the update queue. This field is 0 when the 
queue is empty. 
28(1C) DCWHIAV 1 Switches - 
Bit Meaning 
0 CP lor CP 2 is available. 
l Highest-level index must be searched in virtual storage. 
2-7 Reserved. 
29(1D) DCWWKNI ] 0 WRITE KN is in process. 
] First time switch (used with various WRITE KN channel programs 
which are executed repetitively). 
2 Same module switch. 
0(0) DCWFCP4 
| { 
4(4) DCWFCP7 


8(8) DCWNUCPS 9(9) DCWNUCP4 10(A) DCWNUCP7 11(B) DCWNLSD 
12(C) DCWFIOBU 


16(10) DCWLIOBU 






| 20(14) DCWFUPDI 


24(18) DCWLUPDI 
28(1C) DCWHIAV 29(1D) DCWWKNI 30(1E) DCWNLEVC 31(1F) DOWNUWKN 


| 32(20) DCWMSHIL 


38 (26) DCWSIZE 


_ 













37(25) DCWNACT 


36(24) DCWHIRPS 





DCWOPCLS 





| 68 (44) DCWIOG 70(46) DCWLOG 





Figure 69. BISAM Work Area 
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yr 


Offset 


30(1E) 


31(1F) 
32(20) 


36(24) 


37(25) 


38(26) 


40(28) 


48(30) 


49(31) 


52(34) 


56(38) 


Field Name 
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DCWNLEVC 


DCWNUWKN 
DCWMSHIL 


DCWHIRP 


S 


DCWNACT 


DCWSIZE 


DCWOPCLS 


DCWERRCT 


DCWFIOB 


DCWLIOB 


DCWSIOA 


E 


E 


Bytes 


Description 

3 Add to the end of the data set. 

4. CP 12A or CP 13A detected an end-of-file mark. 

5 .CP 11A—First use by a given WRITE KN. 

6 Work area for WRITE KN was obtained by Open (VLR only) 
7 Reserved. < 


Counter used when rewriting high-level indexes. 


The number of WRITE KN IOBs waiting (should never exceed one). 


Address of the last active high-level index entry in virtual storage. This 
field is 0 when the high-level index is not in virtual storage. 


Used with WRITE KN. It contains DCBHIRPD if the current track of 
prime data being processed is not shared with a track index or 
DCBHIRSH if it is. 


The number of READ or WRITE K IOBs awaiting completion before a 
WRITE KN can proceed. 


The total size, in doublewords, of (1) the DCB work area, (2) all the 
channel programs, and (3) the minimum size work area used by WRITE 
KN if the user has not supplied a work area. 


Data saved by common ISAM open executor in DCBWKPT3 and 
DCBWKPTG4. This data will be restored in these two fields by the BISAM 
Close routine and used by the common ISAM close executor. (The data 
saved is the address of the format-2 DSCB and the UCB address of the 
device on which the volume containing the DSCB is mounted. This 
address has 5 bytes for CCHHR and 3 bytes for UCB address.) 


Number of positions left for IOBs to be placed on the error queue. 
Maximum value # 2(NCP)+DCBUFNO. 


Address of the first IOB on the error queue, which contains requests that 
ended with a permanent error or used a dynamic buffer. This address is 0 
if the queue is empty. 


Address of the last IOB on the error queue. This address is 0 if the queue 
is empty. 


Address of the RPS SIO appendage. 


Note: This field is not used by ISAM routines. See the ISAM ‘extension of the DEB. 


60(3C) 
64(40) 


66(42) 
68(44) 


70(46) 


QISAM Track-Index Save Area (TISA) 


DCWDCBFA 


DCWIPG 


DCWLPG 
DCWIOG 


Y 


DCWLOG 


Pointer to DCB field area. 


Prime record (other than the last) overhead (variable-length records 


only). 


Last prime record overhead (variable-length records only). 


Overflow record (other than the last) overhead (variable-length records 


only). 


Last overflow record overhead (variable-length records only). 


Calculations for the track-index save area 


Ga a 


The size of the track-index save area (TISA) is equal to the total of the following five 


items: 


1. TISA control fields—20 bytes. 


2. Area for the track-index entries 
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a. Number of entries equal to the maximum number of entries on a track. This is 
ISLNIRT if the track index is on one track; otherwise, ISLHIRT is used. If 
ISLHIRT is odd,.then the calculations are performed with the number of entries 
equal to ISLHIRT + 1 to allow the save area enough space for the last pair of 
entries. 


b. Size of each entry equals COUNT + KEY + DATA 
COUNT=8 
KEY=KEY LENGTH 
DATA=10 
3. Channel program 20A if no shared track. 
4. Channel program 20B if shared track. 
5. Channel program 20C if write-check. 


Field Name Bytes Description 


FTIWIOB 8 MBBCCHHR for the prime-data track which is pointed to by the seek CCW in CP 20 and the search 
CCW in CP 18. 


SIZE 2 Length of one track-index entry (8+KL+10). 


F Pointers To Save Area save Area 


ISLVPTRS+36(24) 
TISA CONTROL FIELDS 


TRACK INDEX ENTRIES 


ISLVPTRS+20(14) 


ISLVPTRS+40(28) 


ISLVPTRS+44(2C) 





Figure 70. Track-Index Save Area 








i Ff bytes 






10(0) 
FTIWIOB 
8 (8) 10(A) 11(B) 12(C) 13(D) 
SIZE FLAGS HIGHR CURRR NEXTTI 


TISASIZE 






Figure 71. TISA Control Fields 
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Field Name Bytes Description 
FLAGS l X‘80’. — Resume load. Turned on for the first track index write. 
-X'40° — Close. Turned on by IGGO0202I to force writing of the track index. 
X‘'20° — End of track-index track. 
x‘10° = — _ End of cylinder. 
X‘08° — Execute CP 20 alone (with one CP 18). 
X'04" — Close. Track-index entries previously generated. 
X'02? — Schedule CP 20C next. 
X'01’ — Schedule CP 18 next. 
HIGHR 1 Highest record number for the current track of track index (either ISLHIRT or ISLNIRT). 
CURRR l Current record number (last record moved to TISA). Initialized to 0. 
NEXTTI 3 Address in TISA where the next track-index entry will be placed. Initialized to TISA + 20. 
TISASIZE 4 Size of TISA saved for the close routine to issue a FREEMAIN. 








04(04) DFANREC 


00(00) DFARORG3 
08(08) DFAST 09(09) DFARESER 10(OA) DFAUSE 
12(0C) DFANBOV 14(0E) DFANOREC 


16(10) 











DFALIOV 


24(18) DFARORG1 26(1A) DFARORG2 


28(1C) : 
DFALPDA 









36(24) 






44(2C) DFACHAIN 










DFAASID1 50(32) DFAUSE 1 


Figure 72. DCB Field Area 
-— SS geen 
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ISAM DCB Field Area 
Offset Field Name 
00(00) DFARORG3 
04(04) DFANREC 
08(08) DFAST 
09(09) DFARESER 
10(0A) DFAUSE 
12(0C) DFANBOV 
14(0E) DFANOREC 
16(10) DFALIOV 
24(18) DFARORGI 
26(1A) DFARORG2 
28(1C) DFALPDA 
36(24) DFAID 
44(2C) DFACHAIN 
48(30) DFAASID1 
50(32) DFAUSE1 
52(34) DFAASID2 
54(36) DFAUSE2 
56(38) DFAASID3 
58(3A) DFAUSE3 
60(3C) DFAASID4 
62(3E) DFAUSE4 
64(40) DFAASIDN 
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Bytes 


Field Description 


Number of times an overflow record was referred to by a READ or 
WRITE instruction. 


Number of logical records in the prime-data area. 


Status indicators. 


Bit QO — Single schedule mode 
1 — Key sequence to be checked 
2 — _ Initial load has been completed 
3 — Data set extension (resume loading) will begin on new 
cylinder 
4 — Reserved 
5 — First macro not yet received 
6 — Last block full 
7 — _ Last track full 


Reserved for future use. 
Total number of DCBs open to the data set referenced by this field area. 


Number of bytes remaining on the current overflow track (for 
variable-length records only). 


Number of logical records in an overflow area. 


Direct-access device address of the last record written in the independent 
overflow area, in the form MBBCCHHR. 


Number of full cylinder overflow areas. 


Number of partial or whole tracks remaining in the independent overflow 
area. - 


Direct-access device address of the last prime data record in the prime 
data area, in the form MBBCCHHR. 


Identifier for the data set associated with this field area, in the form 
UCBADDR | CCHHR of the format-2 DSCB. 


Address of the next field area in the chain. 


ASID of a unique address space in which a task opened the data set 
associated with this field area. 


Number of DCBs in DFAASID1 open to the data set associated with this 
field area. 


ASID of a unique address space in which a task opened the data set 
associated with this field area. 


Number of DCBs in DFAASID2 open to the data set associated with this 
field area. 


ASID of a unique address space in which a task opened the data set 
associated with this field area. 


Number of DCBs in DFAASID3 open to the data set associated with this 
field area. 


ASID of a unique address space in which a task opened the data set 
associated with this field area. 


Number of DCBs in DFAASID4 open to the data set associated with this 
field area. 


Address of the first field area extension or zeros if none exist. 


. 
e Yeo 
ak 
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Offset Field Name Bytes Field Description “ 





ISAM FIELD AREA EXTENSION 
a 
aeons 


16(10) : DFAEXN 












00(00) DFAXSID1 2 ASID of a unique address space in which a task opened the data set 
associated with this field area. 

02(02) DFAUSEIX 2 Number of DCBs in DFAXSID1 open to the data set associated with this 
field area. 

04(04) DFAXSID2 p ASID of a unique address space in which a task opened the data set 
associated with this field area. 

06(06) DFAUSE2X 2 Number of DCBs in DFAXSID2 open to the data set associated with this 
field area. 

8(08) DFAXSID3 2 ASID of a unique address space in which a task opened the data set 
associated with this field area. 

10(0A) DFAUSE3X 2 Number of DCBs in DFAXSID3 open to the data set associated with this 
field area. 

12(0C) DFAXSID4 2 ASID of a unique address space in which a task opened the data set 
associated with this field area. 

14(0E) DFAUSE4X 2 Number of DCBs in DFAXSID4 open to the data set associated with this 
field area. 

16(10) DFAEXN 4 Address of next DCBFA extension. Contains zeros if this is the last 


extension in the chain. 


Save Area for BISAM Asynchronous and Privileged Routines 


Offset Field Bytes Description 

OO) IGGRETRN 4 Return address 

4(4) IGGPDEB A Validated DEB address 
8(8) IGGUKEY 1 User storage protect key 
9(9) IGGRESRV ~ 4 Reserved 

12(C) IGGREGS 64 Protected register save area 
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DIAGNOSTIC AIDS 


Appendage Codes 


Before an EXCP command is issued, QISAM scan mode and BISAM enter an 
appendage code into the IOB extension. When the appendage is entered from the I/O 
supervisor, the appendage. routine tests the codé to determine which functions to perform 
to complete processing for the input/output request. 


When an appendage routine schedules an asynchronous routine, it puts an asynchronous 
code into the IOB extension. When the asynchronous routine gains control, it tests the 
asynchronous code to determine the functions it must perform. 


QISAM Scan Mode Appendage Codes 


The following codes apply under both channel-end and abnormal-end conditions: 


Code Meaning 


Q Completion of read 

4 Completion of SETL (K or I) 

8 Completion of write (with or without write-checking) 

12 Completion of check (read-back for write-checking) 

16 Completion of rewrite (write-back when write-checking) 

20 Completion of recheck (read-back after rewrite during write-checking) 


BISAM READ and WRITE K Appendage Codes 


The following codes apply under both channel-end and abnormal-end conditions: 


Code Meaning 


Q Completion of CP 4-5-5W for READ 
1 Completion of CP 4-5-5W for WRITE 
2 Completion of CP 7 or 7W 

3 Completion of CP 1 or 2 

5 Completion of CP 6 or 6W 

6 


Completion of CP 5W for write-checking after WRITE 


BISAM WRITE KN Appendage Codes 


The following codes apply under both channel-end and abnormal-end conditions: 


Code Meaning 


4 Completion of CP 14 part 2 (fixed-length records with user work area) 

7 Completion of CP 1 or CP 2 for WRITE KN os 
8 Completion of CP 8 

9 Completion of CP 10A for true insert or part 2 of CP 14 (variable-length 


records), for EOF extension 
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10 Completion of CP 10B for true insert of part 2 of CP 14 (variable-length ( 
records), when part 1 has been executed s 


11 Completion of CP 10B for addition to end-of-data set 


12 Completion of CP 14 or part 1 of CP 14 (fixed-length records with user work 
area and variable-length records), for setups 1, 2, and 5 (asynchronous routine 
codes 9, 10, and 13) | - 


13 Completion of CP 14 or part 1 of CP 14 (fixed-length records with user work 
area and variable-length records), for setups 3, 4, and 6 (asynchronous routine 
codes 11, 12, and 14) 


“14 Completion of CP 15 


15 Completion of CP 16 for setup 2 (search overflow chain for last overflow record 
in the chain: addition to end-of-data set) 


16 Completion of CP 16 for setup 3 (search overflow chain for record which 
logically precedes or is equal to new record to be added: true insertion) 


17 Completion of CP 17 when used for track index only or part 2 of CP 14 
(variable-length records) when part 1 has not been executed (no overflow) 


18 Completion of CP 17 when used for track index and when it is to be continued 
for higher level indexes 


19 Completion of CP 17 when it is to be started or continued for higher level 
indexes 
20 Completion of CP 9A, CP 11A, CP 12A, CP 13A, or CP 12AV 
21 Completion of CP 9B, CP 11B, CP 12B, CP 13B, or CP 12BV -_ 


22 Completion of CP 9C, CP 123W, or CP 123 WV 
23 Completion of CP 10A for addition to end of data set 
24 Completion of CP 12C or CP 13C 


Asynchronous Codes 


BISAM READ and WRITE K Asynchronous Codes 
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The following codes direct asynchronous coding to the proper routines: 
Code Condition 

Successful completion of CP 4-5-6 

EXCP macro instruction to be issued 

Successful completion of CP 7 

Successful completion of CP 1 or CP 2 

Unsuccessful completion of CP 4-5-6 


Unsuccessful completion of CP 7 “4 | 


a HDA & WO N | © 


Unsuccessful completion of CP 1 or CP 2 | 


j 
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—_ BISAM WRITE KN Asynchronous Codes 


) 


¢ 


The following codes direct asynchronous coding to the proper routines: 


Code 
1 


10 


11 


12 
13 


14 


15 


16 


Exception Codes 


QISAM Exception Codes 


Condition 


Scheduled to issue an EXCP which could not be done in an appendage routine 
because a different device (UCB) was involved. 


Scheduled upon the successful or unsuccessful completion of a WRITE KN 
macro instruction. 


Scheduled to set up and execute CP 14 when a record is bumped from a 
prime-data track as a result of a new record being placed on that track (setup 1). 


Scheduled to set up and execute CP 14 when a new record is to be added to the 
end of the data set, the last track is full, and no overflow chain currently exists 
for the last track (setup 2). 


Scheduled to set up and execute CP 14 when a new record is to be added to the 
end of the data set, the last track is full, but an overflow chain already exists for 
the last track (setup 3). 


Scheduled to set up and execute CP 14 when a new record is a true insert and is 
to go in the middle of an overflow chain (setup 4). 


Scheduled to set up and execute CP 14 when a new record is a true insert and it 
is to become the first record in an already existing overflow chain (setup $5). 


Scheduled to set up and execute CP 14 when a new record is a true insert and it 
has a key equal to that of the key of a record in the overflow chain (the record is 
marked for deletion). The new record simply replaces the deleted record (setup 
6). 


Scheduled to set up and execute CP 14 (for variable-length records only) when 
more than one record is bumped from a prime-data track (setup 1). 


Scheduled to set up and execute the CP 14 extension (the variable-length 
records Only) to write an EOF mark in independent overflow. 


- 


QISAM exception codes and the macro instructions which set them are summarized in Figure 
73. For a detailed description of the exceptional conditions, see Appendix A of Data 
Management Macro Instructions. 


BISAM Exception Codes 


BISAM exception codes and the macro instructions which set them are summarized in Figure 
74. For a detailed description of the exceptional conditions, see Appendix A of Data 
Management Macro Instructions. 
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Exception Code Code Set By 


Condition if On 
Field ~CLOSE PUTX SETL 
DCBEXCDI1  TypeK  TypeK Record is not found 


Invalid actual address 
for lower limit 


Space is not found in 
= which to add a aa 


‘ 
| — —- Uncorrectable output error 


Block could not be 
reached (input) 


eet ts 


Block could not be 
reached (update) 


DCBEXCD2 


Data control block is closed 
when error routine is entered 





Length of logical record is 
greater than DCBLRECL | 
(Variable-length records only) - 


'The SYNAD routine is entered only if bit 4, 5, 6, or 7 of DOBEXCD11 is also on. 





Figure 73. QISAM Exception Code Summary 
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oo eceierniace 
a 
se 
a oe 
e . £7 Unreachable block 
Se Overflow record 


Channel program initiated 
x 4 by an asynchronous routine 
(variable length records only) 
Previous macro was 
y - READ KU 


Figure 74. BISAM Exception Code Summary 


Condition if On 


































DCB Copy Relationships 


One of the several procedures for protecting a user’s data set from malicious or 
inadvertent access by another user involves making a copy of the user’s DCB. This is 
done during open, close, or end-of-volume processing. The address of the DCB is passed 
to the open and close components when the OPEN or CLOSE macro instruction is 
issued. This DCB resides in the user’s storage, which has a storage protection key of 8 - 
15. 


The open and close components copy this DCB into an area that has a storage protection 
key of 5, which problem programs cannot modify. Thus, a problem program cannot 
modify the DCB when given control during OPEN/CLOSE processing for such routines 
as DCB exit, DCB ABEND exit, and label processing. 


Figure 75 shows the control block relationships among the WTG table, the 
OPEN/CLOSE/EOV work area, and the DCB. 


See the “ISAM Common Open, Common Close, and Validation Modules” section for.a, 
description of the use of the DCB copy in open and close processing. 
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x 0/C/E PARM LIST 
t User’s 
Ro De 
Storage Protection Key of 8-15 
Storage Protection Key of 5 
RWTG 
WTG 
Table 
tf twa 
0/C/EOQV 
Work Area 
| 
t USER 
| ‘DCB 
| + DCB DCB 
COPY Copy 
“On entry to O/C/EQV only. (o™ 
Figure 78. DCB Copy Control Blocks Relationships 
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APPENDIX A. ISAM DATA SET ORGANIZATION 


Introduction 


The indexed sequential access methods (ISAM) can be defined as the combination of 
data set organization and the techniques used_to process the data. With the indexed 
sequential organization, data records are arranged in logical sequence by a key field. An 
indexed sequential data set resides on direct-access storage devices and can occupy up to 
three different areas: 


e Prime area 


This area contains data records and related track indexes. It exists for all ISAM data 
sets. 


e Overflow area 


This area contains overflow from the prime area when new data records are added. It 
is optional. 


e Index area 


This area contains master and cylinder indexes associated with the data set. It exists 
for a data set that has a prime area occupying more than one cylinder. 


The indexes of an ISAM data set are analogous to the card index in a library. For example, if 
the library user knows the name of the book or the author, a card index can be searched and a 
catalog number obtained that will enable the book to be located in the book files. The user 
would then go to the shelves and proceed through each row until the shelf containing the book 
was found. Usually, each row contains a sign to indicate the beginning and ending numbers of 
all books in that particular row. Thus, as the user proceeded through the rows, the catalog 
number obtained from the index would be compared with the numbers posted on each row. 
Upon locating the proper row, the user would then search that row for the shelf that contained 
the book, and then look at the numbers on the books on that shelf until the particular book 
was found. 


ISAM uses the indexes in much the same way to locate records in an indexed sequential 
data set. The operating system provides both the queued and basic access techniques to 
process an indexed sequential.data set. The queued access technique is used to create the 
data set and add records to the end. It can also be used to sequentially process or update 
the records. The basic technique is used to read or update records and to insert new 
records at any place in the data set. 


Data Set Structure 


The overall structure of an indexed sequential data set is shown in Figure 76. The prime 
area contains data records arranged according to the collating sequence of a key field in 
each record. As the records are stored (written) in the prime area, the system prepares a 
track index. Each entry in the track index identifies the key of the last record-on each 
track. There is a track index for each cylinder in the data set. If more than one cylinder is 
used, the system develops a higher level index called a cylinder index. Each entry in the 
cylinder index identifies the key of the last record in the cylinder. 8 


Ye 


To increase the speed of searching the cylinder index, you can request the system to 
create a master index that indexes the cylinder index. You can specify through the data 
control block (NTM and OPTCD operands) that, if the size of a cylinder index exceeds a 
certain number of tracks, a master index should be created. The example in Figure 76 
shows an entry in the master index (first level) for each one track of cylinder index 
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a 


CYLINDER 1 CYLINDER2 #£OCCYLINDERN 


Track Index Track Index [Track Index _ | PRIME 


AREA 
200 6850 


CYLINDER 
INDEX 


MASTER INDEX 
(1st LEVEL) 





1650 j 2300 |} 3550 a 4700 MASTER INDEX 
(2nd LEVEL) 


(3rd LEVEL) 
Figure 76. Indexed Sequential Data Set Structure 


entries. If the size of the master index exceeds the number of tracks specified in the data 
control block the master index is automatically indexed by a higher level master. This is 
illustrated in Figure 76 by the second level master. Three such higher level master 
indexes can be constructed. 


Prime Data Area 


Records are written in the prime area when the data set is created or updated. Figure 77 

illustrates the initial structure of a cylinder of the prime area. The track index is 

contained on the first track of the cylinder. Note that a pair of track index entries is 

associated with each prime track in the cylinder. In this example, the last track of the 

cylinder is reserved for a cylinder overflow area. oT ge 
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N|O TRACK 
27 | 27 INDEX 


oe foe foe PRIME 
poe [oe foe _ 


CYLINDER 
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Figure 77. Initial Structure of Prime Cylinder 


Index Areas 





The operating system automatically generates at least two levels of indexes: a track index 
and a cylinder index. (Up to three levels of master indexes are created if requested.) 


Track Index: This is the lowest level of index and is always present. There is one such 
index for each cylinder in the prime area; it is written on the first track of the cylinder 
that contains the indexes. The index consists of a series of paired entries; that is, a 
normal and an overflow entry for each prime track. The normal entry contains the home 
address of the prime track and the key of the highest record on the track. The overflow 
entry is originally the same as the normal entry but is changed when records are added to 
the data set. 


In Figure 78, the track index is an expanded detail of the index shown in Figure 77. Note 
that the data area of the first normal entry points to track 01 and the key area represents 
the highest key on track 01. Because this figure illustrates the initial structure of the data set, 

the first overflow entry is the same as the normal entry. 


Cylinder Index: For every track index created, the system generates a cylinder index entry. 
There is one cylinder index for a data set, each entry of which points to a track index. Becatlse 
there is one track index per cylinder, there is one cylinder index entry for each cylinder in the 
prime area. In Figure 78, the data area of the first cylinder index entry points to the home 
address of the track index for cylinder 01. The key area contains the number 100, which 
represents the highest key on the cylinder. For simplicity, in Figure 78 only the cylinder, track, 
and record number portions of the address in the data areas are shown. 
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Cylinder Index 





Data: | Home address of track One such entry for 
index for cylinder 01 each cylinder of 
Key: Highest key on the prime data area ; 
cylinder 01 
Track Index 
Normal Overflow Normal Overflow | 
Home Data: Home address of One normal and one 
Addr. prime data track 01 overflow entry for 





- Key: Highest key on each prime data track 
prime data track O1 on cylinder 01 


Figure 78. Structure of Cylinder Index and Track Index 
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Overflow Areas: As records are added to an indexed sequential data set, space is required 
to contain those records that do not fit on the prime data track on which they belong. 
You can request that a number of tracks be set aside as a cylinder overflow area to 
contain overflows from prime tracks in each cylinder. When a cylinder overflow area is 
specified, record O of the track index is used as a cylinder overflow control record (see 
Figure 78). ISAM uses this record to keep such information as the address of the last 
overflow record in cylinder and the number of bytes remaining on the current overflow 
track. 


An advantage of using cylinder overflow areas is a reduction of search time required to 
locate overflow records. To access the cylinder overflow area requires only a seek to 
another track within the cylinder. This can be performed with less system overhead than 
a seek to another cylinder as is required to access an independent overflow area. 


Instead of, or in addition to, cylinder overflow areas, you can request an independent 
overflow area. Overflow from anywhere in the prime data area is placed in a specified 
number of cylinders reserved for this area. An advantage to having an independent 

overflow area is a reduction in unused space reserved for overflow. A disadvantage is the 
increased search time required to locate overflow records in an independent area (see 
Figure 8Q). 


It is good practice to request cylinder overflow areas large enough to contain a 
reasonable number of additional records, and an independent overflow area to be used as 
the cylinder overflow areas are filled. 





| 
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a Adding Records to a Data Set : : 


A new record added to an indexed sequential data set is placed into a location on a track 
determined by the value of its key field. If records were inserted (added) in precise 
physical sequence, insertion would require shifting all records of the data set with keys 
higher than that of the one inserted. However, because an overflow area exists, the 
indexed sequential data organization allows a_record to be inserted into its proper 
position with only the records on the track in which the insertion is made being shifted. 
When a record is to be inserted, the records already on the prime track that are to follow 
the new record are written back on the track after the new record. If the addition of 
records results in insufficient track space for alJ the records to be written onto the track, 
the records that do not fit are written onto an overflow track. This technique maintains 
the sequential order of records on the prime track. Three situations may occur when a 
record is added to a data set. Each is discussed below. 





First Addition to a Prime Track: When a data set is created, its records are placed on the 
prime tracks in the storage area allocated to the data set as shown in Figure 77. If a 

record (for example, record 3) is to be inserted into the data set, the indexes indicate that | 
record 3 belongs on prime track 01. Record 3 is written immediately following record 2, 
and records 4 and 6 are retained on prime track 01 (see Figure 79). Because record 8 no longer 
fits on this track, it is written on track 09 (cylinder overflow track). 


The key area of the normal index entry is changed, because record 6 is now the highest 
record on the track. The data area of the overflow index entry is changed; it now points 
to record 8 as the first record on track 09. The first addition to a track is always handled 
in this way. 


When records 9 and 10 are added, prime track 02 receives these records as shown in 

-_ Figure 79. Record 19 is shifted to track 09 (cylinder overflow track). Record 16 is also 
shifted to the overflow track after record 19. Note that records 16 and 19 are chained 
together to show the logical sequence and to indicate that they are associated with the 
same prime track. (Overflow records are chained through a link field, which forms the 
first 10 bytes of each overflow record.) 





























Subsequent Additions to a Track: Subsequent additions are written either on the prime 
track where they belong or as part of the overflow chain from that track. If the addition 
belongs between the last prime record on a track and a previous overflow from that 
track, it is written in the first available location in the overflow area, with its link field 
containing the address of the next record in the chain. Because the data area of the 
overflow index entry always refers to the address of the lowest key in a chain, it is 
changed. 


a 


If subsequent additions belong on a prime track, they are written in proper sequential 
location on the prime track. For example, records 11 and 13, as shown in Figure 80, are 
written in proper sequential position on track 01. Record 15 (previously the highest 
record on the prime track) is shifted to the cylinder overflow area with its link field 
chaining to record 16. Record 14 is shifted to the independent overflow area, because the 
cylinder overflow area is full. The link field in record 14 points to record 15, the next 
record in the chain. The key area of the normal index entry is changed to indicate that 
record 13 is the highest on the prime track. The data area of the overflow index entry is 
changed to point to record 14 in the independent overflow area as the first record in, the 
overflow chain. are 


Addition of High Keys: A record with a key higher than the current highest key in the 
data set is placed at the end of the last prime data track, if there is room. Such an 
= . addition is handled, in effect, as if it had been presented when the file was first created: 
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7 — — Key of normal entry changed 
7~- — — Data of overflow entry changed 
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Figure 79. Structure of Prime Cylinder after Cylinder Overflow 


If the last prime data track is full, the new record is written in the overflow area and 
linked to the overflow chain from the last prime track. The key area of higher level 
indexes is changed to reflect the addition. 


Detailed Index Description 
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All index records have three sections: count, key, and data (except the cylinder overflow 
control record, which has no key section). Index records are formed in virtual storage. 
and written on direct-access devices by QISAM load mode channel programs operating 
with I/O supervisor. BISAM channel programs may later cause sections of the indexes to 
be updated when deleting and/or adding records to the data set. In all records (index and 
data), the BB portion of MBBCCHHR is 0. Figure 81 shows the ISAM index entry 
format. 


The count section is 8 bytes in length, in the following format: CC HH RK DD. 


CC HHR 
is the direct-access device address of this index entry; the components of this address 
vary with the type of device. 


K 
is the length of the key of each record in the data set. It is also the length of the key 
section of each index entry. 


DD 
is the length of the data section of each index record. It is always hexadecimal ‘O00A’ 
(indicating 10 bytes) except for the cylinder overflow control record, whose data 
section is 8 bytes long. 
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Figure 80. Structure of Prime Cylinder after Independent Overflow 
The key section is always the same length as the key of each record in the data set and 
has a value equal to the highest key referenced by this entry. 


The data section is always (except for the cylinder overflow control record) 10 bytes in 
length, in the following format: 


M BB CC HH RFP 


The first 8 bytes contain the direct-access device address of the data record whose key is 
equal to the key section of this index entry. 


This address is represented as follows: 


M 
is the DEB extent serial number. 


$e 2 Bytes ———_-——____—_ a ——-————_—————_—__—. K —— Sige TD Bytes SSS 


INDEX ENTRY 
mies lec] wwf afele 


COUNT KEY DATA 


~. 
at 






Figure 81. Format of ISAM Index Entry 
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BB CC HHR 
is the direct-access device address of the data record. The components of the address 
vary with the type of device. 


F; the following are the bits of the flag reference code byte. 


Bit 01234567 
CCCCCIII 


where CCCCC is the index entry type code and I I I indicates the level of index 
entry. 


The following are valid index entry type codes: 


CCCCC = 00000 normal entry data record resides on 
unshared track 
00001 normal entry data record resides on 


shared track 
00010 overflow entry _ end (last entry in chain) 
00011 overflow entry chained (not last entry 
in chain) 
00100 dummy entry end of index 
00101 dummy entry chained 
00110 inactive entry 


{ Inactive entries are written by QISAM load mode close executors to fill out allocated, 
but unused, space at the end of each index. 


The following are valid codes for level of index entry: 


ITI = 000 The track index 
001 The cylinder index 
010 The first level master index 
O11 The second level master index 
100 The third level master index 


P, the command code byte, is referenced by channel programs. The three valid 
hexadecimal command codes are 1B, OB, and 07. 


1B = Seek HH These are used for entries whose data records are on the 
same volume as the index entry. 

OB = Seek CC HH 

07 = Seek BB CC HH _ This is used when the data record is on a volume other than 


the one on which the index entry resides. It is also used in 
all overflow and dummy index entries. Its purpose is to 
cause an interrupt during the execution of ISAM channel 
programs (protection check) so that the ISAM appendage 
routines can issue another EXCP or check for an error or 
special procedure. 


Track-Index Records: Track-index entries consist of a series of paired entries; that is, a 
normal and an overflow entry for each track. A dummy end entry indicates the end of 
the index, which may be padded with inactive entries. The first track of a track index 
may contain a cylinder overflow control record. 


Track Capacity Record: The track capacity record is RO of each prime-data track for 
variable-length records. Bytes 0 and 1 of the data portion contain the number of unused 
bytes currently left on the track. Byte 2 contains the highest record ID currently on the 
track. 
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Cylinder Overflow Control Record: The cylinder overflow control record is the RO record 
on the first track of the track index, if the DCBOPTCD field has specified the cylinder 
overflow option. It has no key section. The 8-byte data section is in the following format: 


HH R YY T 00 


Initially, 


HH R 
indicates the first track of the cylinder overflow area, and R = 0. 


After overflow has occurred, 


HHR 
indicates the track and record number of the last overflow record. 


YY 
indicates the number of unused bytes remaining on the current overflow track, but is 
not maintained when the data records are of fixed length. 


T 

indicates the number of tracks remaining unused in the cylinder overflow area. 
00 ™ 

indicates that these two bytes are not used. 


Figure 82 contains a detailed explanation of track-index records. 
Overflow Linkage: On the first overflow from a prime-data track: 


1. The data portion of that track’s overflow index entry is written onto the overflow 
track as a link field in front of the data section of the overflow record. 


2. The key of the prime-data track’s normal index entry is updated to contain the key of 
the last record remaining on the prime-data track. 


3. MBB CC HH R in the data portion of the prime-data track’s overflow index entry is 
updated to contain the address of the overflow record. The F byte is changed from 
CCCCC = 00010 to CCCCC = 00011 to indicate that this overflow index entry is 
pointing to an overflow chain. 


On subsequent overflows from the prime-data track: 


1. The link fields of all but the highest overflow record are modified to contain the 
location of the next higher overflow record. The F byte indicates CCCCC = 00011 
(overflow chain). 


2. The link field of the highest overflow record will contain a meaningless address and 
the F byte indicates CCCCC = 00010 (end of the overflow chain). 


3. The key of the overflow index entry for the prime-data track is modified, if necessary, 
to contain the highest overflow key. This occurs only when adding a record to the end 
of the data set. 


4. The key of the normal index entry for the prime-data track is modified to contain the 
key of the last record on the prime-data track. 


5. The data portion of the overflow index entry for the prime-data track is modified, if; -... . 


necessary, to contain the location of the lowest overflow record. 
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Type of Ent K 


Normal, Data 
Record on 
Unshared Track 


Normal, Data 
Record on 
Shared Track 


Overflow, End 
and Chained 


Dummy, End 
of Index 


Inactive 


Highest key on prime 
data track pointed 

to by data portion of 
this index entry. 


Same as Normal, 
Data Record on , 
Unshared Track. 


End—same as pre- 
ceding normal index 
entry. Chained— 
highest key to over- 
flow from the track 
referenced by this 
entry. 


Maximum value 
(each byte equal to 
hexadecimal ‘FF’). 


Maximum value 
(each byte equal to 
hexadecimal ‘FF’). 


Figure 82. Description of Track Indexes 
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Location of track whose 
highest key equals the 
key field of this index 
entry. (The cylinder is 
the same cylinder on 
which this index entry 
resides.) 


Same as Normal, Data 
Record on Unshared 
Track. 


End—same as preceding 
normal index entry. 
Chained—location of 
record with lowest key 
to overflow from the 
track referenced by 
this entry. 


Minimum Value (each 
byte equal to 
hexadecimal ‘00’). 


Minimum value (each 
byte equal to 


| hexadecimal ‘00")._ 


Data 


ok Pe 


Hexadecimal! ‘O00’ 


Record number of 
first data record 

on the shared track. 
For variable length 
records, R equals 
the highest record 
ID currently on 

the track that the 
index entry 
references. 


End —Hexadecimal 
‘FF’. Chained— 
record number with 
lowest key to 
overflow the track 
referenced by 

this entry. 


Hexadecimal ‘00’ 


Hexadecimal ‘OO’ 


CCCCC = 


00000, 


11] = 000 


CCCCC = 
00001, 
11! = 000 


End— ~ 
CCCCC.= 
00010, 
[lf = 000 
Chained— 
CCCCC = 
00011, 
Ill = 000 


CCCCC = 
00100, 
Ill = 000 


CCCCC = 
00110, 
Ill = 000 





Hexadecimal ‘1B‘ 


Hexadecimal ‘1B’ 


Hexadecimal ’07’ | 


Hexadecimal ‘07’ 


Hexadecimal ‘07’ | 
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Cylinder Index Records: A cylinder index is created for the data set if the processing 
program has requested space that extends over more than one cylinder. Figure 83 
contains a detailed explanation of cylinder index records. 






























Type of Entry Key 


Normal Highest key on the | Location of start of track{ Record number CCCCC = | Hexadecimal ‘07’ 
cylinder whose track] index on the cylinder of first data 00000, if this cylinder 
































index begins at whose highest key record on first I1f = 001 | index entry 

location specified | equals the key of this track of the track refers to 

by data portion of | index entry. index. If no data track entry on 

this index entry. records on that a different 
track (an unshared volume; hexa- 
track), R= decimal ‘OB’ if 





hexadecimal ‘O0’. same volume. 






















Hexadecimal ‘00’ | CCCCC = 
00100, 


ltl = 001 


Minimum value, (each 
byte equal to hexa- 
decimal ‘00’). 


Maximum value, 
(each byte equal to | 
hexadecimal ‘FF’). 


Hexadecimal ‘07’ 





























CCCCC = | Hexadecimal ‘07’ 
00101, 


Ill = 001 






Location of next track. | Hexadecimal ‘O00’ 


of this cylinder index. 


Maximum value 
(each byte equal 
to hexadecimal 

‘FF’), 


Dummy, 
Chained 





















Hexadecimal ‘00’ | CCCCC = 
00110, 


11 = 001 


Minimum value (each Hexadecimal ‘07’ 
byte equal to hexa- 


decimal! 720’). 


Maximum value 
(each byte equal 
to hexadecimal 

oe ad 


Inactive 





Figure 83. Description of Cylinder Index Records 
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Master Index Records: One or more levels of master indexes are created if the 
DCBOPTCD field has specified this option. 


Figure 84 contains a detailed explanation of master index records. 


Highest key ona 
track of the next 
lower level index. 
That track is 
pointed to by the 
data portion of 
this index entry 


Maximum value, 
(each byte equal to 
hexadecimal ‘FF’). 


Maximum value 
(each byte equal 
to hexadecimal 
'PE 


| Dummy, 
Chained 


Maximum value 
(each byte equal 
to hexadecimal 
‘FF’), 


Inactive 


Location of the track 
within next lower level 
index, whose highest 
key equals the key. of 
this index entry. 


Minimum value, (each Hexadecimal ‘00’ 
byte equal to hexa- 


decimal ‘00’). 


Location of next track | Hexadecimal ‘00’ 
of this level master 


index. 


Minimum value (each Hexadecimal ‘00’ 
byte equal to hexa- 


decimal ‘00’). 


Figure 84. Description of Master Index Records 
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Hexadecimal ‘00’ 


| Ut =010, 


011, o0r 
100 


CCCCC = 


| 00100, 


lt! =010, 
011, or 
100 


‘| CCCCC = 


00101, 
lil =010, 
011, or 
100 


CCCCC = 
00110 
11 = 010, 
011, 0r 
100 


Hexadecimal ‘1B’ 
if next lowest 
level index is on 
same cylinder 

as this index 
entry. 
Hexadecimal ‘OB 
if not on same 
cylinder. 


’ 


Hexadecimal ‘07! 


Hexadecimal ‘07’ 


Hexadecimal ‘07’ 
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Cylinder Index Records: A cylinder index is created for the data set if the processing 
program has requested space that extends over more than one cylinder. Figure 83 
contains a detailed explanation of cylinder index records. 





















Type of Entry Key 


Highest key on the | Location of start of track] Record number CCCCC = | Hexadecimal ‘07’ 
cylinder whose track| index on the cylinder of first data GOOoOod0, if this cylinder 





































index begins at whose highest key record on first I1! =Q01 | index entry 
location specified equals the key of this track of the track refers to 

by data portion of | index entry. index. If no data track entry on 
this index entry. records on that a different 


track (an unshared 
track), R= 
hexadecimal ‘00’. 


volume; hexa- 
decimal ‘OB’ if 
same volume. 






CCCCC = 
00100, 
lt! =001 







Minimum value, (each Hexadecimal ‘00’ Hexadecimal ‘07’ 
byte equal to hexa- 


decimal ‘00’). 


Maximum value, 
(each byte equal to 
hexadecimal ’FF’). 









































CCCCC = | Hexadecimal ‘07’ 
00101, 


lt} = 001 


Location of next track. | Hexadecimal ‘00’ 


of this cylinder index. 


Maximum value 
(each byte equal 
to hexadecimal 

‘FF’). 


Dummy, 
Chained 

























Hexadecimal ‘00’ | CCCCC = | Hexadecimal ‘07' 
00110, 


Ill = 001 


Minimum value (each 
byte equal to hexa- 
decima! 330’). 


Maximum value 
(each byte equal 
to hexadecimal 

‘FP *). 


Inactive 










Figure 83. Description of Cylinder Index Records | 
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| Dummy, 
Chained 


Inactive 


Master Index Records: One or more levels of master indexes are created if the 
DCBOPTCD field has specified this option. 


Figure 84 contains a detailed explanation of master index records. 


Highest key on a 
track of the next 
lower level index. 
That track ts 
pointed to by the 
data portion of 
this index entry 


Maximum value, 
(each byte equal to 
hexadecimal ‘FF’). 


Maximum value 
{each byte equal 
to hexadecimal 
‘FF’). 


Maximum value 
(each byte equal 
to hexadecimal 
"FE E'} 


Location of the track 
within next lower level 
index, whose highest 
key equals the key.of 
this index entry. 


Minimum value, (each 
byte equal to hexa- 
decimal ‘00’). 


Location of next track 
of this level master 
index, 


Minimum value (each 
byte equal to hexa- 
decimal ‘00’). 


Figure 84. Description of Master Index Records 
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Hexadecimal ‘00’ | 


Hexadecimal! ‘00’ 


Hexadecimal ‘00’ 


Hexadecimal ‘00’ 





lll =010, 
O11, or 
100 


CCCCC = 
00100, 
lil =010, 
011, or 
100 
CCCCC = 
00101, 
Hl! =010, 
O11, or 
100 


CCCCC = 
00110 
Il] = 010, 
011, or 
100 


Hexadecimal ‘1B’ 
if next lowest 
level index ts on 
same cylinder 

as this index 
entry. 
Hexadecimal ‘0B’ 
if not on same 
cylinder. 


Hexadecimal ‘07! 


Hexadecimal ‘07’ 


Hexadecimal ‘07’ 
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APPENDIX B. ISAM CHANNEL PROGRAMS 


The channel program for each request using ISAM is constructed by the appropriate 
module. All ISAM channel programs are listed in Figure 85. The address of the channel 
program is placed in the IOB for that request. A channel program consists of a group of 
channel command words (CCWs), each word of which has the following format: 


Command Code Address Flags 000 (ignored) Count 


(1 byte) (3 bytes) (5 bits) (3 bits) (1 byte) (2 bytes) 





Note: The last 4 bytes are ignored by a transfer-in-channel (TIC) command word. 


: (In some TIC CCWs, these bytes contain flags or a chain address.) The entry in the 
address field is one of the following: 


¢ The virtual-storage address where data is to be placed or found; for a Read or a Write 
command word 


¢ The location of the seek or search argument; for a Seek or Search command word 
e The CCW to which a transfer is made; for a transfer-in-channel command word 


Entries in the flags field have the following meanings: 


CC Command chaining 

DC Data chaining between gaps of a record 
SK Skip the transferring of data | 

SLI Suppress incorrect length indication 


The entry in the count field represents either the number of data bytes that are to be 
transferred or the number of bytes of data on which a search is to be made for 
comparison. 


The function or purpose of each command word or group of words is given in the 
comment following the count field. The channel command words are identified by the 
number to the left of the command code. 





The following abbreviations are used in the address and count fields: 


WA Work area 

KL Key length 

DL Data length 

CF Storage area for count fields (8 x DCBHIRPD bytes) 


Those BISAM or QISAM scan mode channel programs beginning with a search ID with 
a count of 5 bytes are executed with a channel program prefix if a rotational position 
sensing (RPS) device is being used. The prefix will be a set sector followed by a TIC to 
the regular channel program. The channel command words that vary depending on the. . 
presence of RPS are shown in the following channel programs with both possible are 
command codes. | 


é 
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Channel 
Program 


1 
Z 


5/SW 
6/6W 


7/7W 


9A 


9B/9BW 


9C/9CW 


10A/10AW 
10B/10BW 
11A 


11B/11BW 
12A 


12AV 


Description 
Searches cylinder and master indexes. 


Searches a cylinder index when it is the highest- 
level index searched on the device. 


Searches a track index. 


Searches prime-data tracks and reads or writes 
prime-data records. 


Searches an overflow chain and reads or writes 
overflow records. 


Writes data records when WRITE K is associated 
with READ KU. 


Searches the track index and the prime-data track 
for place to insert new record. 


Reads into work area an unblocked record 
occupying the position at which an insertion is. 
to be made. 


Reads an even-numbered record after writing a record 
into the previous slot and writes back the last 

record of a non-EOF track when the number of records 
bumped is odd. 


Reads an odd-numbered record after writing a 
record into the previous slot and writes back the 
last record of a non-EOF track when the number of 
records bumped is even. 


Writes a record or block to replace an EOF mark. 
Writes an EOF mark. 


Reads block in which record ts to be inserted, 
plus all remaining blocks on the prime data track. 


Writes a rearranged block back onto the prime- 
data track. 


Reads data records following slot into which new 
records are to be inserted. 


Reads variable-length data records or blocks 
following point at which a new record its to be 
inserted. 
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Mode 
BISAM (all) 
BISAM (all) 


BISAM (no 
WRITE KN) 


BISAM (no 
WRITE KN) 


BISAM (no 
WRITE KN) 


BISAM (no 
WRITE KN) 
BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 
BISAM (WRITE KN) 
BISAM (WRITE KN) 


BISAM (WRITE KN) 
BISAM (WRITE KN) 


BISAM (WRITE KN) 





-_ 
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Channel 
Program 


12B 
12BV 


12C/12CW 


13A 


13B 


13C/13CW 


14/14W 


15 


17/17W 


18 
19 
20 
20A 
20B 
20C 
21 


22A 
22B 


23 


? 


Description 


Writes back prime-data records. 


Writes back variable-length prime-data records 
or blocks. 


Writes a new record which has replaced a deleted 
record. 


Reads all blocks from the track following and 


‘including the slot into which a record is to be 


inserted. 


Writes back the blocks read by CP 13A after they 
have been rearranged. 


Writes back a block if the record inserted has the 
same key as a record which has been logically 
deleted but is still physically present in the block. 


Writes some combination of COCR, normal and over- 
flow track-index entries, and overflow records. 


Reads in the COCR and the overflow track-index 
entry when a new record is added to the end of 
a data set. 


Searches an overflow chain for (1) the record that 
logically precedes or is equal to the new record to 
be added or (2) the last record in the chain. 


Changes the key in a normal or overflow-track-index 


entry or in a higher level index entry. 

Writes prime-data records or blocks. 

Preformats the shared track and/or writes the COCR. 
Writes track-index entries. 

Writes a full track of a nonshared track index. 

Writes a full track of a shared track index. 
Write-check for CP 20A and 20B. 


Writes high-level (cylinder and master) index 
entries and end-of-data marks. 


Reads or writes data records (key and data, 
unblocked records). 


Reads or writes data records (data only, 
unblocked records, and all blocked records). 


Searches high-level indexes, the track index, and 
the prime-data track when a SETL K or KC is issued. 


Figure 85 (Part 2 of 3). ISAM Channel Program Summary 
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Mode 


BISAM (WRITE KN) 
BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


QISAM load 
QISAM load 
QISAM load 
QISAM load 
QISAM load 
QISAM load 
QISAM load 


QISAM scan 
QISAM scan 


QISAM scan 








| 
| 
! 
| 
| 
| 
| 
| 


a 


oe 
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Channel. 
Program 
24 

25 

26 

31A 


31B 


87 


91 


123W 


123 WV 


CLOSE 
CCW(1) 


CLOSE 
CCW(2) 


VXCCW 
(1A) 


VXCCW 
(1B) 


VXCCW 
(2) 
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Description 4 


Reads track-index entries. 
Reads track-index entries when SETL 1 is issued. 
Extension of CP 23 to read overflow chains. 


Reads the key of the last overflow track-index 
entry into the key save area (resume loading only). 


Reads the count and data of the last prime-data 
block into the first buffer specified in the buffer 
control table (resume loading only). 


Reads the highest level index into the user work 
area (specified by DCBMSHI). 


Fills unused index tracks with inactive and dummy 


(end-of-index) entries (same as CP 19). 


Extension of CP 12A and CP 12B or CP 13A and 
CP 13B when write-checking is specified. 


Extension-of CP 12AV and CP 12BV when write- 
checking is specified. 


Reads the format-2 DSCB for updating by close 
phase. 


Writes the format-2 DSCB back in the volume table 
of contents (VTOC). ‘ 


Reads to the end of the file or the end of the 
last track in the prime-data area. 


Reads to end of file of independent overflow 
area. 


Reads to the end of the prime-data track. 


Figure 85 (Part 3 of 3). ISAM Channel Program Summary 


Mode 


QISAM scan 
QISAM scan 
QISAM scan 
QISAM load 


QISAM load 


. BISAM (all) 


QISAM load 


BISAM (WRITE KN) 


BISAM (WRITE KN) 


Common Close 


Common Close 


Common Open 
(validation) 


Common Open 
(validation) 


Common Open 
(validation) 





Channel Program | 
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Searches cylinder and master indexes 


eM el eee Code Flags | 
Address Count Comments 
ors Search ID equal | |OBSEEK+3 Smo CG-SE! at Search for equal CCHH to verify seek — 
\OBSEEK set from either DCBFTHI or 


0 |index entry in virtual storage 






C1 Search key high | Contents of CG, SLI KL Too far along index? Search for 


or equal : DECBKEY master index 


entry 
oo 
2B P 
: Me C2B45 jo CC,SLI ie Set sector to zero 
Set sector 
1A | Read home C8 CC, SK Yes, position to 
address start of track 
Search key high | Contents of CC KL 
or equal (MT) DECBKEY 
eee ett 


Read data C8+7 CC (lowest When found, read master index, CC off if 
master)“ lower level master index is to be searched 


Master index entry—IOBSEEK set to 
C8+7 when this CP is restarted for 
lower level master index 




























Search for entry 


























Search key high | Contents of i Search for 
or equal DECBKEY cylinder 


Index entry 
C128 [sie |e C12B+5 jo CC, SLI fe Set sector to zero 
Set sector 











Read home CC, SK Position to start of track : 
address rae 


(continued) 


*|f the user has not specified ADDRSPC=REAL, the CC bit is set off, splitting the channel program, 
which is then restarted at C10A. 
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Channel Program 1 (continued) 


- Searches cylinder and master indexes 


| Command Code Code S Flags | 
Address Count Comments 
» [rex] simon |“ foe one | 
Search key high | Contents of Search for entry Sadren var 
or equal (MT) DECBKEY 


cylinder 
ae fe fa index entry 


MBBCCHHR Cylinder index entry—lOBSEEK for 
CP4 set to C17 
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Channel Program 2 





Searches a a index when it is the highest level index searched on the device 


Address Count Comments 







CC, SLI 4 | semen for equal CCHH to verify seek— 
IOBSEEK set from either OCBFTHI or 


index entry in virtual storage 







TIC 


Search for 
cylinder index 
entry 





CCW 
: cc 
ES 
ew falre [oe [=| 
C30 Search key high | Contents of CC, SLI KL Too far along index? 
or equal : DECBKEY 
ane “is |e C31B+5 co CG Stl 4 Set sector to zero 
Set sector 
1A | Read home C37 50 CC, SK 5 
address 









Yes, position to start 
of track 









| 
| 





Cylinder index entry—IOBSEEK set to 
C36 when CP4 is executed 
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Channel Program 4 


Searches a track index 


CCW Command Code Flags 
No Address Count Comments 
[aor Desrintn | [Hex | omcrinion 
CA01 i lIOBSEEK+3 a) co CCS a 3 
Address of CP5 in CP 4-5-6 


CA02 TIC CA01 
chain (see Figure 55) 
Search ID high | lOBSEEK+3 
or equal 


cag foe frie CA7 or CA6B Shee 





Search for equal CCHH to verify seek— 
IOBSEEK set from C17 (CP1), C36 
(CP2), DCBFTHI or entry in virtual 
storage. 


Search |D equal 
















TIC to CA1 if shared track is present. 
Otherwise, TIC to CAS. 
















In prime data part of track? |Search 















CA5 search key high | Contents of CC, SLI KL Too far along in index? 
or equal DECBKEY | 
es fa fe ew fw 





CA6B | .. CA6B+5 


re i sector eo CC, SLI ie 
CA7 1A Read home CC, SK 
address 


Set sector to zero 







Yes, position to start of track 









Search for entry 





CA12 Track index entry 





CA13 BBCCHH RF 


| CA14 fp | sek CA13 | 40 | CC (to CP5) Le Seek prime-data track (see Figure 81) 


*The CC bit is turned off in C10 and the channel program is split if the user has not specified ADDRSPC=REAL. 
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Channel Program 5/5SW ; ° 


Searches prime data tracks and reads or writes prime data records 


CCW Command | Command Code | p Flags | 
N Address Count Comments 
o Pre] owner |S [ie [oes — 
= Set sector Position to beginning of track if RPS 
CA15 | 
CAI6A] 31 CA13+2 Search past index on shared track or past 
RO on normal track. Should be RHA 
and TIC to CA20 for VLR. 
cAt6C re cag yt Avoid read count of FIRSH+1, (CA25#3 


Search ID equal 









set to FIRSH prior to execution.) 


CA21 29 | Search key equal] Contents of CC, SLI Search (29) if Read, Records Unblocked, 
69 | Search key equal] DECBKEY or Write. Search (69) if Read, Records 
or high Blocked. 


CA23 Read data Contents of Read prime data or write prime data 
Write data DECBAREA 
O03 | NOP Obtain address of record just read or 
ee, Read sector eee = coon written. No CC if read. 
cass 31 Search ID ‘Search ID equal CA25+3 os 5 | search for record again 
jane|a fre [oon [w[  [o 


cone] en awe | fo | x | os [ean 


CA24D* Search ID equal | IOBSEEK+3 re Rewrite record if necessary 
cxe| ow fre ‘(ae 


CA24F* Write data Contents of 
DECBAREA 

CA24G"| 08 | TIC CA24A or CC Write check again 
CA240 


CA25 —---CCHHR If Read KU, CHHR of count is moved Bie. 
into IOBSEEK+4 (without destroying - 
MBBC in lOBSEEK) when record is 
written back (CP7) 


*Write Validity Check 
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Channel Program 6/6W ° 


Searches an overflow chain and reads or writes overflow records 


Address Count Comments 
ee eee 
a ee 5 | sore for first record in overflow 
chain—lIOBSEEK set from CA12+7 
pre fe few [ol fe Te 


Search key Contents of RKP=0 and blocked KP=0 and backed or RKBO;rud KP=0 and backed or RKBO;rud read 
CA28 equal or high DECBKEY .- 
29 | Search key Check key in overflow record. If equal, 
ra [ne read (CA31) or write (CA40) record; 
fo go to next one in chain 
CA30 CA31- 
CA40 
CA31 Read data Contents DL+10} Read the overflow record (end-of CP) 
+6) 0 
coasecr | 
22 


CA31B Read sector IOBSECT 
ena, 06 | Read dota data CA34+7 ale CC, SLI*** > Read link field to next record 
wm oe |re (enw ne 


CA34 | 2 2 eee Link field from overflow entry 





















cas BBCCHHRF 


Seek next record in overflow chain 
CA36 |P(07) | Seek CA35 (see Figure 81 for value of P—seek 
aren code) 
jcag7 31 | Search ID |Search ID equal CA35+2 te 5 | Search for overflow record 
co [e[re fom [ep fa 
oa [ve foe fw || 0 [rami ati 


CA40 Read data Contents CC, SLI 10 Read link field Write 
(+6) of overflow 
DECBAREA record 


=a = wor | 1oBsecr 0] 
e€aa sector Position to record again 
= mer [ope 











"This channel program is preceded by a set sector-TIC:if RPS is present. This prefix is located in (continued) 
the IOB extension. 
**CC if RPS 
***If the user has not specified ADDRSPC=REAL and there are records in the independent overflow area, the CC bit is 
turned off. 
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-_ Channel Program 6/6W (continued) ‘ 
| 


Searches an overflow chain and reads or writes overflow records 


CCW Command Code Flags 
N Address Count Comments 
oe | Desention == 
CA41 ES Search ID equal | CA35+2 Position to record again | Write 
overflow 


CA43 Write data Contents (+6) Write record 
“ of 
DECBAREA 
Set sector 


CA43A* Search ID |Search 1D equal cass. Find record again 


cae aa oe ep 


“Write Validity Check 


’ 
2 Reieat Kale 






record 








Reposition to correct record 








Pn ee rr ne Re es ae ps me a th ole ety Sr PE 


cae 


‘ 7 
beh TS ee a eS 


~. ‘ 
‘a ' 
~a, 
~ 
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Channel Program 7/7W - 


Writes data records when WRITE K is associated with READ KU 
cow |_Command Code 
Address Count Comments 


31 | Search 1D equal | IOBSEEK+3 | & 7 Ft 

CA45 TIC CA44 Address of next 
: CP7 in queue 
(see Figure 55) 












CA44* Search for record to be updated— 


See CA25 (CPS) 





S 


Write updated record 


CA46 05 | Write data Contents of CC Dil 
DECBAREA 
: Pp 
CA460 Be4/ NO \(OBSECT Ce Ski 1 
23 | Set sector 
CA46A“* Search ID equal | IOBSEEK+3 af cc | 8 


Find record again 
i 


*This channel program is preceded by a prefix if RPS is present. The prefix consists of a set sector and TIC, which are 
located in the 1OB extension. 
**Write Validity Check 
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Channel Program 8 ; 


Searches track index and on data track to determine first record to be moved and position to insert it. 


| Command Code Code | Flags | 
Address Ccunt Comments 
© [hex] oexrivon | "Tex [ onan 
arabe Search ID equal | IOBSEEK+3 Pe Search for (COCR) RO 
mc a ee ae 


ee CB22 j 60 CC, SLI Read RO COCR (HHRYYT) into CB22 
jcaa | 92 | Read count (MT} CB22+6 60 CC, SLI ca Read count of index entry 


Coal foal Search key equal} Contents of el aoe Ga Search for index entry 
or high DECBKEY 

ese [oe rc foe fo | fo 
a ee ee 
cae [oe [rosea oo  w [ee # [renter 


eke 
tate tae 


CB10 CO ee A Boe ee He Track-index entry contains search 


address for prime or overflow data 
CB11 B BCCHHR F 


~ ~ (a he 
CB16 ES lies CB16+5 CC, SLI 
23 | Set sector | 


The following versions of CB17-CB20 are used with fixed-length records 


av [a famnommlenne [w]e fs 
wa fre fon Tm | Te 
esesfoe [ne fos jm] fe 
owe] [roves [oss [w | conn |: 


CB19 Search key equal] Contents of 7 
or high DECBKEY CC,SLI KL o 
Search track for insertion block ; 


rl al Ce Cl 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the 1|OB extension. ae” 
**No CC bit if RECFM=F or FB, HIRPD=1, and no shared track. The CC bit is turned off and the channel program is split 


if the user has not specified ADDRSPC=REAL. 
























Seek prime or overflow track. 
See Figure 82 for value of P 
(Seek Command Code). 







Position to beginning of track if RPS. 
Set sector to 0 if RPS. 







Search for prime record 








BE ae PE Re a 


Serta emt 
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Anne eh aetna metas 
ee 2 * 7 
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Channel Program 8 (continued) 


Searches track index and prime data track to determine first record to be bumped and place to insert it. 


| Command Code | Code [Flags 
Address Count Comments 
[rex] cewronon | SM [hex [ oncin 


The following versions of CB17- CB20 are used with variable- anette records 


CB17 | 1A bal 70 CC,SK,SLI Position to beginning of track*** 


CB18 pos fticC cers 0 | Avoid skipping first record | Avoid skipping first record first record 
|CB18A| 06 WA+KL = CC,SLI at Read in block prior to insertion block 
CB18B{ 12 CB234+3 CC,SLI cs Get count, probable insertion block 
CB19 Search key equal| Contents of 

or _ DECBKEY 





Search for probable insertion block 
am [wre Toon Teo 


CCWs CB?1 —_ CB26 are common for fixed” and variable length records. 









CB21 NOP 


Read sector 


CB22 HHRYYT/ CC 


C823 HAR? CC AHUASR 
CB24 


CB25 MBBCCHHR Data field of the index entry following 


the entry that meets the search 
CB26) {)} . j- . - Pi Pies. ue Gp ee tes, 22 conditions 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB extension. 
*** Obtains track balance for CP12 A/B. - 


tOBSECT Read insert-block sector for RPS 












COCR/Start of count of index 
entry 


Finish count of index entry/Count 
of record after insertion (record 
to be bumped) 













CCHHR KL DL DL Count of the index entry following the 


entry that meets the search conditions 
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Channel Program 9A ° 


Reads into work area an unblocked record that occupies the position where an insertion is to be made 


[Hex] Description — Address Count Comments | 
Description 


“im Search 1D equal | {OBSEEK+3 es 
1 
CB3 po | Read key and je | ec 


| CB30 


Search for record 


Read record into work area 
data 


Channel Program 9B/9BW 


CB3 





Reads an even-numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number. of records bumped is odd 


Command Code 
Address 
Description 


Search ID equal | IOBSEEK+3 


Write key and Contents of 
data DECBKEY 


ime Comments 
Description 


Search for record 


Write new record or record pointed to 
by DECB 


Contents of 
DECBAREA 


A QO 
BE 
= 


= NOE IOBSECT 
Set sector 


es7a"* Search ID equal 


Read key and 
data 


Search for record again 


” ‘@) 
fe 


KL+DL | Read it back 


Read key and Contents of 
data DECBKEY 


Read next record 


O 
O 
A 
i 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB extension. | 
**Write Validity Check Pees | 
{ 
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Channel Program 9C/9CW 








~ 





Reads an odd numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number of records bumped is even. 








ra Code Flags 


A 


cB42 Write key and WA DC KL 
data 


casaa"/ 31 Search 1D | Search ID equal IOBSEEK+3 40 


f 
CB43C**|OE | Read key and 
data 
CB44 OE | Read key and WA DC KL 
data 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the 1OB extension. 
**Write Validity Check 







Comments 






Search for record 







Write record into work area 

















| 5 | sear for record again 
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Channel Program 9A ; ° 


Reads into work area an unblocked record that occupies the position where an insertion is to be made 


Command Code a 
Address C 
Description |Description | eee Comments 
Search ID equal | IOBSEEK+3 


Read key and Read record into work area 
data 


Channel Program 9B/9BW 


CB30 Search for record 


CB31 


CB3 


CB33 












Reads an even-numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number. of records bumped is odd 


cow gree Code 


| Description | 


CB34* a Search ID equal ne 
cole [ne [ows =| 


CB36 les 
CB37 Contents of 
DECBAREA 


oe sector 


CB37A* * Search ID cual] | 
KL+DL 


calla fae 
CB38 OE Contents of 

DECBKEY | 
CB39 Contents of 

DECBAREA 













Address Comments 











Search for record 











Write new record or record pointed to 
by DECB 


Contents of 
DECBKEY 


Write key and 
data 

































5 | search for record again 


Read it back 


Read next record 









Read key and 
data 











Read key and 
data 










*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB extension. ‘ 
**Write Validity Check fas, 


| 

| 
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Channel Program 9C/9CW 













Reads an odd numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number of records bumped is even. 


cow Command Code S Flags 
[Hee] Deseriotion | A&M [Hex [Description _| Ou! — 
Description Description 
CB40* 3" Search ID equal | IOBSEEK+3 fol cof Search for record 


CB42 Write key and | WA DE KL 
data : 


ceasa|at Search ID Search ID equal joaseeK+s | 40° 


cpa3c*! OE | Read key and KL+DL| Read it back 
data 

CB44 OE | Read key and WA DC KL 
data 

cons foo] fwanctrio foo] | 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the 1OB extension. 
**Write Validity Check 
















Write record into work area 













| 5 | sear for record again 





Read record and point DECB to that 
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Channel Program 10A/10AW : : 


Writes a record or block to replace an EOF mark 


eo Code ) Flags | 
Address Count ‘Comments 
— oa < wa 


CB48 1D | Write count, key] CB51 } 
and data 
CB49 Contents of 
DECBKEY 
cpBsoo*+)93 | NOP lOBCCW2+4 CC, SLI 1 
23 | Set sector _ 


2a aes 


B50C** Read count, key, 8+KL | Read it back 
and data +DL 
CCHHR KL DL DOL Count of record or block which 
replaces EOF 


“This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB 
extension. 
**Write Validity Check 










Search for last data record 







Write record or block over EOF mark 








Search for record again 
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Channel Program 10B/10BW 










Writes an EOF mark 


CCW Command Code p Flags 
Address Count Comments 
CB52* a search ID equal | IOBSEEK+3 ‘ola 5 | searet for last data record 
CB54 Write count, CB55 Le Write EOF mark 
. key, and data | 
xx| 03 | NOP 
CB540 0 0 IOBSECT CC, SLI 
23 | Set sector 


=o Search ID 7 IOBSEEK+3 wl co 


carefree fw |e 
a se count, 10 8 Read it back 
key, and data 


CB55 CC HH RO O O EOF mark (count field) 
















5 | search for EOF mark 






{ 
*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the IOB extension. 
**Write Validity Check 
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Channel Program 11A 








Reads an | odd-numbered record after writing a record into the previous slot 


| Command Code Code | Flags 
Address Count Comments 
[Fox] Omron ea 
"a0 Search ID equal IOBSEEK+3 ae | search for block 
CC2A Read key and Read in block 
data 
elel te aia 


i 
Channel Program '11B/11BW 
| 















ad 











Writes a rearranged block back onto the prime data track 


| Command Code _| Code f  Flags 
Address Count Comments 
[hex] owionon |“ [ex] Deion 

ac Search ID equal | IOBSEEK+3 fate Te Search for insertion point 
hae a | and gael CC KL+DL | Write block 

iene | 

zz) ss 

CC60 IOBSECT CC, SLI 

ie sector 


cs |v ee 


20 Aesd Keyan cre ere 
data 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB extension. 
**Write Validity Check . 






a a. 






ee 


an 









eT for block again 





OO nt alert AR at AS LR ae ne Ge mt 
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Channel Program 12A - 






Reads data records oe slot in which new record is to be inserted 


Command | Command Code | | Flags 
Address Count Comments 
eee aes 
aha te tat ie 


a Read key-and. . | WAdI0 ae CC. SLI ee | each eoerimedata blcck 
data 


CD4 1E WA+10+ CC, SLI DL 
KL+DL 







5 | sear for block prior to insert 








Read successive prime data record. 
There is one copy of CD4 for each 
record on a prime data track; the CC 
bit is set off in the appropriate copy 
depending on how many blocks are to 
be read. 


Read count, key, 
and data 
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Channel Program 12AV 













Reads variable length data records or blocks following point at which new record is to be inserted 


CCW Command Code | Flags 
N Address Count Comments 
; ee ex [ner 


CCHHROO8B Capacity record for prime data track 





actnae lela it 
inte lee tet 


cm [ee [resin oom [uw | can [2 [omomevmee 
CDOC ae TIC to CD3 if a full track is to be read 


or prior block is full 
NOP 


Set sector 


CD2B or 

CD3 
Read key and WA CC, SLI KL 
data 


Read data WA+KL+CF CC,SLI DL 
+LRECL 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the |OB extension. 
**With unblocked records and a large HIRPD, the WRITE KN work area (OCBMSWA) may not be large enough to contain all 
records past the insertion point. CP12AV is then executed more than once. “ISAM Buffer and Work Area Requirements”’ 
in Data Management Services tells how to determine the best size for the work area. 


oe 









Search for RO (track capacity record) 











5 |searct for record prior to insertion point 








TIC to CD2B if this is first execution of 
channel program * * 







Read key of record prior to insert point 














Read data portion of record. There is 
one copy of CD3 for each record which 
can be read ina single execution.” 
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Channel Program 12B : 











CE6 


CCW 


Writes back prime data records 





Command Code F lags 
Addross Count 
a Search ID equal | (OBSEEK+3 5 





ae and data — ae le 
i pecexey | vo | oc | Ku 


=a 











Write count, key| WA+KL+ 
and data DL+10 


{ 


230 MVS/XA ISAM Logic 


Comments 


Search for block prior to insert 


Write prime data records. There is one 
set of CE6-CE7 for each record ona 
prime data track; the CC bit is set off 
in the appropriate copy of CE7 
depending on how many records are 
written back. 
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Channel Program 12BV 


Writes back variable length prime data records or blocks 

Address Count Comments 
CDOA CC, SLI Write updated track capacity record 
lOBSECT +1 =i CC, SLI : 






Search for RO 











|| search for record prior to insert point 












Search home Search for start of track 


address 





Write updated track capacity record 
again 
















Write prime data record. The number of 
sets of CE4-CE6 equals DCBHIRPD; 

the CC bit is set off in the appropriate 
copy of CE6 depending on how many 
records are written back 


Write count, 
key, and data 















WA+KL+CF 
+(DL-LRECL 
+RKP 


es ee es 


*This channel program is preceded by a set sector-T!C if RPS is present. This prefix 1s located in the I|OB extension. 





Appendix B. ISAM Channel Progranis 231 


- 


This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Channel Program 12C/12CW 










Writes a new record which has replaced a deleted record 


Address Count ‘Comments 


Write data Contents of CC DL 
DECBAREA 
ied sector 


ae Search ID ot lIOBSEEK+3 ee be Search for record again 


*This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the 1OB extension. 
**Write Validity Check 


Search for deleted record 













Replace deleted record 
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Channel Program 13A . 





Command Code 








ae. eee 
re froseor [ws fo [ 


Channel Program 13B 










Writes back the rearranged blocks read by CP13A 


~ | Command Code Code 
CCW 

is Address 

Description 

Search ID equal | IOBSEEK+3 

a 
Write count, 

key, and data 
rc 
fata aes 


2) 
Q) 
w 


Reads all blocks from the track following and ae the slot into which a record is to be inserted 


Comments 


Address 
eet oe 
cer fat Search ID equal | IOBSEEK+3 ee a 





i ee 





Search for first record to be read 


ra first prime data block 


| Read successive prime data block. There 
is one copy of CF4-CF5 for each block 
on a prime data track; the CC bit is set 
off in the appropriate copy of CF5 
depending on how many blocks are to 
be read. 





















“~ 


Comments 













Search for record before insertion point 


Write back prime data block. There is 
one copy of CG3-CG4-CG5 for each 
block on a prime data track; the CC bit 
is set off in the appropriate copy of 
CF5 depending on how many blocks 
are to be written. 
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Channel Program 13C/13CW 










Writes back a block if the insertion is a record with a key identical to that of a record which, although logically deleted, 
is still physically present within the block. 


il Gemie Address Count - Comments 
fe search ID equal} IOBSEEK+3] 40 3 
aa Search for block insertion point 


ad sector 


cuza} an Search |D equal lOBSEEK13| 40° 


“This Channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the 10B extension. 
**Write Validity Check 





















Find record again 
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Channel Program 14/14W—Fixed Length Records 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See ‘‘BISAM Write KN Asynchronous 


Codes” in the "Diagnostic Aids’ section for descriptions of the setups of this channel program.) 





Part — a COCR and track index * 


Command Code | Flags 
_ Address Count Comments 
aut 


CH3A1*** 


ae =r a Ie 
cor] o 
Read data 


CH4 og | TIC See can TIC to CHS for Setup 1; CH9 for Setups 2, 3 
tup 4 
| or CH8D 5; CH14 for Setup 
03 NOP 
CHS 23 | Set sector lOBSECT CC, SLI 
18 Seek head CIs 
CH55 | #31 Search 10 equal CB22+6 CC Search for prime index entry; entry point for 
Setups 1-2 (add to independent overflow) 
oC cH thor 


Write key and data| Contents of Write new hi-key prime data chain : 
DECBKEY 
ea _[@ |_| ene i eX a 


mo 
23 Set sector 

Hats} 31 | Search 1D equal Search ID | Search 10 equal | e226 5 | search for entry again 
=i aie as 
Sc 
cao [a [seamen [ee |e | | # [tmamantonsannnm 
ae oe Co a 


01 Cl a 


*CP14 is executed in two parts only when the work area is provided by the user. 
**This channel program is preceded by a set sector-TIC if RPS is present. This prefix is tocated in the [OB extension, 
*"**Write Validity Check is 
(Continued) 3. 





Search for COCR entry point for Setups 
1-5 (add to cylinder overflow) 


Write updated COCR from CP8 
Set sector to zero if RPS 











QO 
< 
W 
> 
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Channel Program 14/14W—Fixed Length Records (continued) 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See ‘‘BISAM Write KN Asynchronous 
Codes” in the ‘Diagnostic Aids*’ section for descriptions of the setups of this channel program.) 


Part !!—Rewrites COCR and track index ** 


oo ar ae Code "8 
Address Count ~” Comments 


Set sector 


ee | 5 I sear overflow track index entry 
Ae os a 
ECC 


pole — 13 ee 
[oa a 


Crile TE evlinder CH23+1 40 CC Seek new overflow record (seek is set by 
Seek d appendage routine). For user work area 
NOP : this CCW is a NOP. 











Part |—Writes overflow record.* * 


NOP 
H + i 
CH150 eee lIOBSECT +2 a CC, SLI eo Entry point for Setup 6 
CH15 ie oan CH23+3 | 5 | Search for overflow slot 
ef fe fof P 


CH16 1D Write count, key, CH24 i Write new overflow record 
and data 
CH17 Contents of 
DECBKEY 
Contents of 
1 
a ae cola pepe 
NOP 
H180* 


cHi8As at j 31 |Search 1D equal ID fSearch 1D equal CH23+3 i mere Search for new overflow record again 
pace tee ef 


CH18C*| 1E 10 Read it back. Termination for Setups 1, 2, 
5,6 

CH19 CJ11+1 Seek previous overflow record (appropriate 
seek set by appendage routine). 

















Read count, key, 
and data 







Seek 
Seek cylinder 
Seek head 


i 
1B 





*Write Validity Check 
**CP14 is executed in two parts only when the work area is provided together. 


(continued) 
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Channel Program 14/14W—Fixed Length Records (continued) ! 




















Writes some combination of COCR, normal and over fiow track index entries, and overflow records. (See ‘‘BISAM Write KN Asynchronous 
Codes" in the ‘Diagnostic Aids’’ section for descriptions of the setups of this channel program.) 


Command Code | Flags 5 
cow [__Command Code 
Address Count Comments 
No. Hex Description Description 
et sector 
=a a 


re [oe — fe 
on he eee 


CH220* lOBSECT+3 
CC HHR KL OL DL 





Search for record 


Write back previous overflow record 







ha sector 


CH22A* ae Search !D equal pcos 143 Search for previous overflow record again 


CH22C* fos | Reads =f ft Read it back Termination for Setups 3-4. 
cues | Search address of new overflow record 


Count of new overflow 









MBBCCH HR 





"Write Validity Check 
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Channel Program 14/14W—Variable Length Records 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See ‘“‘BISAM Write KN 





Asynchronous Codes’: in the ‘‘Diagnostic Aids” section for descriptions of the setups of this channel program.) 


| Command Code _| mand Code | Flags | 
Address Count -Comments 
Description Hex Description 


Part |1|—Rewrites COCR and Track Index 


1** Search |D equal | CH23+3 Search for COCR Entry point for-Setups 
1-5 (add to cylinder overflow) 
tet ts 
ewe _[o CB22 = CC, SLI — Write updated COCR from CP8 


Set sector 
CHAI1+ CC, SLI Set sector to zero if RPS 
ie sNOP : 
TIC TIC if not validity check 
CH3A* Search ID equal | CH23+3 pao] co | 8 Search for COCR again 


= ec 
= {coc EY cos] [pana 


CH4 00 TIC to CH5 for Setup 1; CH8G for 
CH3F0,CH3GV Setups 2, 3, 5; CH14 for Setup 4 
03 NOP 
T SLI 
CH5 23 Sateceinn 1OBSEC CC, 
Seek head 


oe [a [re = ef 


Write key and Contents of 
data DECBKEY 


NOP 
H80" 
cre re Set sector IOBSEC 
TIC CH8D 


Search |D equal | CB22+6 | 40] 










Search for prime index entry; Entry 
point for Setups 1-2 (add to 
independent overflow) 








care [ve ow 
CH8C* Read key and 
data 


Read it back 


**This channel program is preceded by a set sector-TIC if RPS is present. This prefix is located in the [OB 
extension. 


*Write Validity Check. 


(continued) 
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Channel Program 14/14W—Variable Length Records (continued) 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See ‘‘BISAM Write KN 


Asynchronous Codes” in the ae Aids” section for descriptions of the eee of this channel program.) 


as — cnc Ce x a 


CH8E This CCW not used 


Part |1|—Rewrites COCR and Track Index 


ra — peewee] — ae pet er i] 


cHecs: Ai Search ID |Search 1D equal | caz | 5 | Search overflow track index entry 


cn cra [oa 


CH10 CH12 or CH13 TIC to CH13 to write data only of 
overflow record 

CH12 foo hwrit key and data | fw] oc | Write new overflow key-data chain | 

eee teehee 


5 | 
CH130* es ea IOBSECT +1 CC,SL 
TIC CH14 
S| [owoioe] om fe] | = 


cena [ve [or ef 


CH13C”* JOE |Read key anddata P| 80 CC, Sk Read it back 
jon eee 


"Write Validity Check (continued) 
























Set sector if RPS 


TIC if not validity check 





Search for entry again 
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Channel Program 14/14W—Variable Length Records (continued) . 





Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See ‘‘BISAM Write KN 
eee neuer Codes" in the —— - a Aids” section for descriptions of the setups of this channel program.) | 









| Command Code _| Code | Flags | 


Address Count 
Description Description 


Part { Writes Overflow Record 


NOP 
His aa Search ID =<" CH23+3 


CH16 1D | Write count, key| CH24 
and data 
CH17 Contents of 
DECBKEY 
Contents of 
oar sector 


Higa Search ID equal | CH23+3 pao} co 





Comments 






| 8 | Search for overflow slot 














Write new overflow record 








8 | Search for new overflow record again 

















CH18C Read count, key, 10 SK Read it back. Termination for Setups 
and data 12,9, 
| Seek previous overflow record 
eae Seek cylinder Soa. ne = (appropriate seek set by appendage 
Seek head SECT+3 routine). 
CH200 i Oe lIOBCCW2+7 | CC, SLI pew | Set sector if RPS 
Set sector 


CH20 ea Search ID equa) CJ11+3 Search for record 
oa leet = ete 


ee 


cH22a" Search ID ae | CJ11+3 | ao] co ) 8. | search for previous overflow record 
po fe 
cH2e"} 08 CH22A he 


3-4 


*Write Validity Check (continued) 


| 0 | write back previous overflow record 
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_ Channel Program 14/14W—Variable Length Records (continued) 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See “BISAM Write 
KN Asynchronous Codes” in the ‘‘Diagnostic Aids*’ section for descriptions of the setups of this channel program.) 


Address 


CH23 MBBCCHHR Search address of new overflow record 


oes 
| ; EOF Extension 

swoon [ose [w fo 

foo fw fne fom fw 


Write count, key, 40* 
CH280* ee lIOBSECT CC, SLI 
23 Set sector 
oar [me fom fw] fe 


CH30° Read count, key, 30 SK, SLI 
and data 

CH31 MBBCCHHR 

CH32 CCHHROO OD EOF mark 


"Write Validity Check 










Comments 



















1 


Search for last overflow record 









Write EOF mark 









Set sector if RPS 











Search for record again 











Read it back 


Address of last overflow record 





a 
8 
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Channel Program 15 : 











Reads in the cylinder overflow control record and the overflow track index entry when a new record is added to the end 
of a data set 











[Command Code | Code Flags 


Address Count 
paleeistion Description 


obemtste te 
ew lef fo fe) 
cue ci1s | 06 | Read dota CB22 0 CC, SLI Read RO (COCR) into CP8 
20> cm a: 


NOP 
Cl1D IOBSECT+1 
Set sector 


che Search ID |Search 1D equal} cis+2 | pcisi2 | CC 


aaa a 
Read count of last overflow entry 


23cce ~ a 14; 
ial all ~ 7 * 


BBCCHH R - 






Comments 








Search for COCR 







‘e)) 


0 CC, SLI 


Oo 







Search for last active normal track 
index entry 

















Read data of last overflow entry 






ID of last active normal track index 
entry 


*This channel program preceded by a set sector-TIC if RPS is present. This prefix is located in the 1OB extension. 
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Channel Program 16 : 


Searches an overflow chain for (1) the record that nee precedes or is equal to the new record to be added or 
(2) the last record in the chain. 


cow a Code ae 


Address ; Comments 
| Description — | Description _| 


crf Search 1D equal | IOBSEEK+3 an rk Search for next overflow record in chain 
ie ae a a 


Search key ~ Contents of CC KL | Is this the desired record? 
equal or high DECBKEY 
a 


ao Search |D equal | {OBSEEK+3 rape fe Search for overflow record 
Co a a a 


CJ7 29 | Search key Contents of Test if key equals user key 
equal DECBKEY 
ce [efre fe af e 
Read data Yes, read 11 bytes of equal key record 
Read 19 bytes for variable-length record 
= melee [=e Tis eet owna 


ost MBBCCHHR Address of record in chain before insert 





*The address is WA+20 for variable length records 
**This channel program preceded by a prefix if RPS is present. The pene consists of a set sector and TIC which are 
located in the |OB extension. 

***DL+14 if VLR 


TSLI if VLR 


. 
Yea 
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Channel Program 17/17W 


Clenges the key in a normal or overflow track =~ or in a higher level index entry 


| Command Code Code | Flags | 
Address Count | Comments 
[ex] onerinion | 
a =n Search |D equal | IOBSEEK+3 anes Search for last entry i in index 


cea. a pes foo [of = e =n 


CK30 dea ae |OBSECT CC, SLI 
ee se for entry again 
[31 | seare ID Search 10 equal IOBSEEK+3 pao} co 
=e cK ne Es [———— 


Contents of ; ; 
DECBKEY Write new high key and rewrite data 
| entry 
atl a Coe EE 
P : 
ct sector ae Search for updated entry 


es 31sec equal | IOBSEEK+3 


ple key and data ee KL+10 | Read it back 


MBBCCHH R Data of index entry 











CKO i : Bi sP ost te ae 2k ee 


*Write Validity Check ' 
**This channel program preceded by a set sector-TIC if RPS is present. The prefix is located in the 1OB extension. 
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Channel Program 18 


Write Prime Data Blocks—Load Mode, QISAM 


| Command Code Code | Flags 
Address Count Comments 
eae, a 


CL1, | 31 Search ID equal | IOBSEEK+3 
CQ1, CQ14A 


i - — 


One copy of CL4 for each buffer. CL4 is used to write blocks for fixed length, unblocked record formats where RKP = 0 
because count, key, and data are contiguous. 

















Search for count field of the block pre- 
ceding the block to be written next 





The count field contains the address of 
the write check segment of this channel 
program (CL1,) 


Transfer to the first CCW of the group 
of write CCWs to be executed next. 
The count field contains the address of 
the last read CCW in the write check 
segment of this channel program +8. 

















CL4** 11D Buffer N Write prime data records when 


RECFM=F,; RKP=0 


Write count, 
key, and data 





One copy of CL6, CL7, CL8 for each buffer. CL6, CL7, CL8 are used to write blocks for fixed length, unblocked formats 
where RKP#O, fixed length, blocked formats because count, key, and data are not contiguous. 



















CL6** Write count, Buffer N Write prime data records when 
key, and data RECFM=F, RKP#0 or RECFM=FB; 
RKP—N/A 
CL7 Write key Buffer 


N+8+R KP 





The next CCW follows each copy of CL4 or CL8 except the last. It transfers to the beginning of the Write Validity Check 
segment of this channel program (CL1, }, if this is the last of the current group of write CCWS; otherwise it transfers to 
the next copy of CL4 or CL6. This CCW is omitted if Write Validity Check is not specified. 





The count field of this CCW contains 


the address of the next sequential 
copy of CL4 or CL6 


The next CCW (CL5) follows the last copy of CL4 or CL8. It transfers to the beginning of the Write Validity Check 
segment of this channel program (CLO, ), if this is the last of the current group of write CCWs; otherwise it transfers to 
the first copy of CL4 or CLE. If Write Validity Check is not specified, this CCW points to the first copy of CL4 or CL6. 


CL5 TIC The count field of this CCW contains : 
the address of Cl4, or CL6, me sa 


**For shared (preformatted) tracks. The count field is not written. (continued) 
*** Command chain is off if this is the last read or write of a group to be executed. 
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Channel Program 18 (continued) : 










Write Prime Data Blocks—Load Mode, QISAM 


Address Count 
[| Dereon coo 


S 
ate a ISLRPSSS 60 CC, SLI | Position for f first record 
CL1,* 1 Search ID equal | IOBSEEK+3 CC 5 
or Buffer N 









Comments 


Search for the count field of block 

preceding the first block of the group 
last written; Buffer N is the address of 
the count field if this is a shared track. 











One copy of CL9Q is generated for each buffer. Each copy of CL9 is command chained except the last. CL3 transfers to 
the copy of CL9 whose position in relation to the last copy of CLQ is equal to the number of blocks written by this’ 
execution of channel program 18. 










Read count, 
key, and data 


*Write Validity Check 
**Command chain is off if this is thé last read or write of a group to be executed. 
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Channel Program 19/91 - 






CP19—Preformat shared track and/or write cylinder overflow controi record (COCR) 
CP91—Fill unused index tracks with inactive and dummy (end of index) entries 


Bey) commer Cade 
cmMo"t CMO+5 a Position for COCR 


Search 1D equal | DCBLPDA 5 When CP is being generated, DCBLPDA | 
contains the DADAD of the record 
ioe the first palin data record 

a = 

Seek head DCBLPDA DCBLPDA if COCR and DCBFIRSH 

or CM27+1 are same track, otherwise CM27+1 
CM5 31 DCBLPDA if COCR and DCBFIRSH 
are same track, otherwise CM27+3 


an [alu fo 


CM7 Write count,key,| Area Z+6 
data 


CM9 Write count,key] Area Z+14 DC 
data 


CM11 Write count, Area Z2+22 D.C 
key, data | 


CM13 © Write count, Area Z2+30 DC 
; key, data 
CM15 Write count, Area Z2+38 DC 
| key, data 
CM17 | 1D Write count, Area Z2+46 DC 
key, data 


*Cylinder Overflow Control Record (COCR) to be written. With variable length records, (continued) 
CP19 consists of CM1 through CM4 only because the track index is not preformatted. 
TSet sector to zero if RPS. 


















DCBLPDA 
or CM2743 


Search ID equal 


























Appendix B. ISAM Channel Programs. 247 , 








This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Channel Program 19/91 (continued) 


CP19--Preformat shared track and/or write cylinder overflow control record (COCR) 
CP91 -Fill unused index tracks with inactive and dummy (end of index) entries 


Flags 


Address [Hex [Description Count Comments 
Description wh 


Write count, Area Z+70 DC 
key, data 


KeMes 1D Write count, Area Z+78 DC 
| key, data 


MBBCCHH R lf the COCR and the Shared Track are 
not the same track; this field is used to 
store the Seek and Search arguments 
for CM4 and CM5, 


This CCW resides in the 
skeleton only and replaces CM1 
when COCR is not to be written. 


} oD ) Butter So | This CCW can replace CM8 
Write count, Area Z+6 This CCW can replace CM7 
key, and data 
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Channel Program 19/91 ° 





CP19—Preformat shared track and/or write cylinder overflow control record (COCR) 
CP91—Fill unused index tracks with inactive and dummy (end of index) entries 


Address Count Comments 
Description Description 
ag Search ID equal} DCBLPDA coo When CP is being generated, DCBLPDA 


contains the DADAD of the record 
orf fener fol a vie 


1B Seek head DCBLPDA DCBLPDA if COCR and DCBFIRSH 
or CM27+1 are same track, otherwise CM27+1 
Set sector 


Se 


CM7 1D Write count,key,| Area Z+6 
data 


CM9 1D Write count,key, Area Z+14 DC 
data 


CM11 } 1D | Write count, Area Z2+22 D.C 
key, data 


omfe > few [el «ene 
CM13 Write count, Area 2+30 80 DC 
key, data 


CM15 | 1D Write count, Area Z+38 DC 
key, data 


CM17 1D Write count, Area Z2+46 
key, data 


*Cylinder Overflow Control Record (COCR) to be written. With variable length records, (continued) 
CP 19 consists of CM1 through CM4 only because the track index is not preformatted. 
tSet sector to zero if RPS. 





















DCBLPDA if COCR and DCBFIRSH 
are same track, otherwise CM27+3 


D.CBLPDA 
or CM274-3 


Search ID equal 
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Channel Program 19/91 (continued) 















CP19--Preformat shared track and/or write cylinder Overflow control record (COCR) 
CP91--Fill unused index tracks with inactive and dummy (end of index) entries 


Command Code Flags 


Address Count 
Description Description 


CM21 1D Write count, Area 2+62 DC 
key, data 


Write count, 


CM23 Area Z+70 DC 
key, data 


CM25 | 1D | Write count, Area Z+78 DC 
key, data 
CM26 | 00 Buffer poof KL+10 


MBBCCHHR If the COCR and the Shared Track are CP19 


not the same track; this field is used to | only 
store the Seek and Search arguments 
7 ct} 
jcoas | jo Write key and data } utter So | This CCW can replace CM8 


for CM4 and CM5. 
CM29 Write count, Area Z+6 This CCW can replace CM7 
key, and data 





Comments 

















This CCW resides in the 
skeleton only and replaces CM 1 
when COCR is not to be written. 


CP91 | 
only 
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Channel Program 20—Fixed Length Records 


Writes Track Index a 


| Command Code Code | Flags | 
Address } Count Comments | 
o feo wm bape] 


The following segment of CP20 is executed for fixed-length record formats when shared tracks are in effect. CP19 has 
preformatted the track index by writing a count z for each ve 


=et— prs V2 ete 


wn eee 























1 [poston for normal track index entry 


Search for normal track index entry to 
be written next 


Write normal track index entry 





























Search for track to write overflow track 
index entry 














Write overflow track index entry 


Transfer to write dummy track index 
entry (CQ10) or to CQT1 if Write 

Validity Check is specified, or transfer 
to CQ13 if CP18 (write prime data) is 
to be executed. 

























Search for dummy track entry to be 
written next 





Search ID equal | Area Y+54 
(MT) 
car fe [ve le =| — 





Write key, data fields of dummy track 
index entry 


=H CQT1 or CL1 Po Transfer to CQT1 if Write Validity Check 


is specified, or to CL1 (CP18); this CCW 
MBBCCHHR Seek address for CP18 - 






is a NOP during Close processing. 


(continued) 
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Channel Program 20—Fixed Length Records (continued) : 


Writes Sach Index a 


Address Count Comments 
Bice [re [ oan 


caren MBBCCHHR Seek [Seok acress for P18 for [Seok acress for P18 





Write count, Write count, key, and data fields of 
key, data normal track index entry 
ISLKEYAD points to key 





a Cae 


CQ20 CQ21 or CQ27 Transfer to CO21 if normal and overflow 
entries are on the same track, or to 
CQ27 if normal and overflow entries 
are on different tracks 


oat ro |i count, press Y+36 a overflow index entry 
0 | wn data j 8 mite ov points to key 








CQ22 Buffer N+8 






CO24 Transfer to COT1 if Write Validity | 
Check is specified, or to CQO13 if | 
CP 18 is to be executed next, or to 
CQ25 if overflow and dummy track 
index entries are on the same tracks, or 
to CQ27 if overflow and dummy track 
index entries are on different tracks 

CQ25 Write count, 


Area Y+54 40 CC S+KL+10] Write count, key, and data of dummy of 
key, data index entry 
Ca26 TIC Catt ‘Transfer to COT1 if Write Validity 
or CQ13 | Check is specified, or to CQ13 if 
CP18 is to be executed next 
CQ27 Search ID equal | CO30+3 40 CC Index entries are split across tracks. . 
Search for next physical track a a 


com [am [ve leon fw] po 





(continued) 
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Channel Program 20—Fixed-length Records (continued) 


Writes Track Index Entry(s) 


| Command Code | Code | Flags 
re Address Count Comments 
4a eed ee 


CQ29 TIC CQ21 or CQ25 Transfer to write overflow track index 
entry (CQ21), or to write dummy track 
index entry (CQ25) 

CQ30 MBBCCHHR lane argument for next track if index 
entries are split across track boundary 


cari eee Search ID Area Y+18 5 | Find last normal entry written 


a el oan 


CQT3* Read key CC, SK KL+10| Read entry back 
| and data 
CaT4* Search ID Area Y+36 CC Find last overflow entry written 
equal (MT) 


cavaa] oe [ro cos foo ff PO 


CQT5* Read key CC, SK KL+10 | Read entry back 
and data 


en et am ae 
CQT5A 


COTSB B1 | Search ID Area N94 Find inactive entry 
equal (MT) 


corse] ao [ic | cares te 


CaQT6" Read key CC, SK KL+10 | Read entry back 
and data 


CQT7* 18 Seek Head CQ14A+1 pa} co | 6 | FLR — Prime track 
cope fre fax fe |__| © [nn tauwiowienine or 


*Write-validity check 
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5 


Channel Program 20—Variable Length Records 


Writes Track Index Entry(s 


| Command Code _| Code | Flags 


Address Count 
oo 
Fao c 3 Write track capacity record 


—— TIC to CP18 to write prime data 


Maximum record length (LL) and RO 
ID for current prime track 


This CCW not used 


| Data of track capacity record (RQ) 


This CCW not used 
This CCW not used 


PP—pointer to last used CCW in CP18, 
LL—length of current record 


Comments 


Description 


ee ca0's 
a Search ID equal | CQ5+3 


CQO Position for RO 


Search for RO on current prime track 





pe oon 
= jenn ee 


joa | ric 





Lit-CCHHR 





CQ7 VR es 


CQ8 








CQg --—-YYR-—- — 


CQ10 





CQ11 PPLL-—-—- — — 










CQ12 This CCW not used 
CQ14 CQT1 or CLI Transfer to CQT1 if Write Validity 

Check is specified, or to CL1 (CP18) 

if it is not specified, this CCW is a 

NOP during close processing. 
area MBBCCHHR Seek address for CP18 
= Ts ea eo 
CQ15 at Search ID equal lOBSEEK+3 ja} co | 8 | Index entry to be written next 
cars los ric cons fo | | 
CQ17 {1D |Write count, Area Y+18 DC Write count, key, and data fields of 

key, and data normal track index entry 

: ISLKEYAD points to key 
CQ18 Buffer N+8 
a | 
care a Area ¥#26 





=e to zero if RPS | (continued) 
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Channel Program 20—Variable-length Records (continued) 


Writes Track Index Entry(s) 


Command Code 





Address 
8 ea 


| Flags | 


- imi ey 


CQ?1 1D Write count, - 
key, data 








Buffer N+8 


+RKP 


wii 


oS 


Ca24 
{ 


CQ25 !11D_ | Write count, 
key, data 

| CQ26 F TIC 

CQ27 Search ID equal 
le 








[coz 





_ thf ; ie 
CQ30 MBBCCHHR 







Transfer to CO21 if normal and overflow 
entries are on the same track, or to 


CQ27 if normal and overflow entries are 
on different tracks 





Write overflow index entry 


ISLKEYAD points to key 


Transfer to CQT1 if Write Validity 
Check is specified, or to CQ13 if CP18 


is to be executed next, or to CQ25 if 
overflow and dummy track index entries 
are on the same tracks , or to CQ27 if 
overflow and dummy track index entries 
are on different tracks 


Write count, key, and data of dummy 
index entry 


Transfer to COT1 if Write Validity 
Check is specified, or to CQ13 if 
CP18 is to be executed next 


Index entries are split across tracks. 
Search for next physical track 


Transfer to write overflow track index 
entry (CQ21), or to write dummy track 
index entry (CQ25) 


Search argument for next track, if track 
entries are split across track boundary 


sr ce 


crt fawcocnamvow fo] es 
a a cl cs 


*Write-validity-check 


Find last normal entry written 





(continued) Bees 


Appendix B. ISAM Channel Programs“253 





This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Channel Program 20—Variable length Records (continued) : 






| Writes Track-index Entry (s) 












Command | Command Code __| Flags 


Address Count 
aol os 






Comments 







Find last overflow entry written 







ICOT4* Search ID Area Y¥+36 
equal ud , | 


coraa| op |ric care foo fo 


CQT5* Read key CC, SK KL+10 } Read entry back 
| and data 


parsal os [ric foary | 60 | cist: | 1 | Woinetvecnywniten 

ee 
| Search ID cia ao Maa Gaal 
equal (MT) 

=< ae ae) a eo 


CQT6* Read key CC, SK KL+101 Read entry back 
and data 


CaQT7* coca Seek head CQ5+2 p4o{ coo = | VLR-Track capacity record 


*Write-validity Check 




















Find inactive entry 
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Channel Program 20A 


Write a non-shared track of track index 


cw Command 9 
[Hex Address Count Comments 
| Description Description 
rf si epee Se 


oat Nl 


| One copy of CQ4 for each track index entry 
8tKL+10 














Search for the Count Field of the record 
preceding the record to be written next 


| Search ID equal 











The count field contains the address of 
the CCW that TICs to CP18 when non- 
write check 












TIC to the first write CCW to be 

executed, as follows: 

1. CQ4 

2. Resume Load write CCW (some CQ4) 

3. Non-shared last track of track index. 
The address of some CQ4 is stored in 
the count portion of this TIC (may 
be CQ4) 









Write count, TISA+20 or 40 
key, and data TISA+20+N 
(8+KL+10) 





Write a track index entry 












| For onsite me the following two CCW's are at the end of CP20A 


‘For write checking, the following CCW is at the end of CP20A° 


a - i — 





Seek on the prime data track to be 
written 
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- 


Channel Program 20B ; 


Write a shared track of track index 


| Command Code _| Code | Flags 
Address Count Comments 








Set sector stapsss+2 | 40” Le hg | Position for the next index ee 


CQ1 | 31 |Search !D equal |IOBASEEK+3} 40 5 Search for the count field of the record 
to be written next 

CQ2 TIC _ The count field contains the address of 
the CCW that TICs to CP18 for non- 
write check 


TIC to the first write key, data CCW to 
if executed, as follows: 

. CQ4 
: Resume Load write KD CCW. 
(some CQ7) 



















CQ4 OD | Write key, data |TISA+20+8 or 
TISA+20+8+N 


(8+KL+10) 










TISA+20+N Search for the count field of the record 
(8B+KL+10) to be written next 


Write key, data | TISA+20+8+ KL+10 | Write the key and data portion of a 
N (8+KL+10) track index entry 


For non-write e checking, the following two CCW’s are at the end of CP20B 


Seek head TISA+1 Seek on the prime data track to be 
written 


For write checking, the following CCW is at the end of CP20B 





















[eye eT] | ew 
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Channel Program 20C ; 


Write check for CP20A and B 


Address Count Comments 
te oS pepe 
NOP 
Cao Ser eactor ISLRPSSS+2 | 60: CC, SLI Position for the next index entry 
Search ID equal | IOBASEEK+3 Search for the count field of the record 
to be written next 


CQ9 | Thecount field contains the address of 
the CCW that TICs to CP18 | 








TIC to the first read CCW to be executed 
as follows: 
1. CQ4 
2. Resume Load read CCW (some CQ7) 
3. Read CCW for non-shared last track 
or shared track. The address of this | 
CCW is stored in the count portion 
of this TIC {may be CQ4). 


CQ4 Read key, data | TISA+20+8 50 CC, SK KL+10 | Read back a track index entry 
or TISA+20+ 
8+N ; 
(8+KL+10) 


ene copy of CQ5, CQ6,and CQ7 for each remaining track index entry. 
Search for the count field of the record 
to be written next 


Search 1D equal | TISA+20+N 
(8+KL+10) 


See —e tet — 
Read key, data | TISA+20+8+ 
N (8+KL+10) 
Seek head TISA+1 Seek on the prime data track to be 
eee 











KL+10 | Read back a track index entry 
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Channel Program 21 : 


Write <a Level Index and End of Data EOP! Merkis! 
Address Count Comments 


CQ42 1D | Write count, Area Y 
key, data 
area; Y+62 is used for dummy ane 


CQ43 ISLKEYA or 
Area Y+62 
inactive entry 


CO44 Area Y+8 7 CC (Write Write data field of high level index entry 
validity check) 
03 | NOP 
| 


CQ47* an Ccae ic KL+18]| Read back current high level index 


#Close processing utilizes CP21 to write end of data marks in the prime data area and independent overflow area. ISL- 
area Y is initialized with the ‘KDD’ portion of the count nee set to zero. The data chain bit is turned off. 
“Write Validity Check 










Search for 1D of index entry to be 
written with R=R-1 















Write count field of current index entry 











ISLKEYAD is used for normal entry 





Search for ID (CCHHR) of current 
| entry with R=R-1 












Read count, 
key, data 
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cf * Channel Program 22A : 


Read/Write data record —key and data, unblocked records 


Command Code | Flags 
Address Count Comments 
as fier] Dereon 
7) ee | ID CN6+3 CC MT set off for 1st CP22 in chain 
re | (MT} . | 


TIC CN1 XX CN2+4 used 
as buffer 
flags 


CN3 TIC 






See description of CN2+4 and CN2+5 
below 








Transfer is set when records are blocked 
or when data only (instead of key and 
data) is read or written 

















Buffer 
address and 
offset 







Read key and 
ata 

‘Write key and 
data 





SKIP bits set on in CN3 and CN4 for 
write check processing 











Fixed-length records: the blocksize 






















CN4 Read data Buffer CC (off when 

Write data address end of chain (DL) is constant so the count field is 
and offset unless CN5 is set at open 
f used for RPS) 
; Variable-length records: the actual 
| block size is set in the count field by 
the EOB routine each time this CP is 
executed 
a, CN5 TIC Next CN 1 Transfer to next CP 22 in chain if record 






is not last or not RPS 






If RPS, and record is last in chain and 
not last on track, transfer to RDCNT 
and RDSECTOR for read only. 


ol | Save sector of record read for PUT X 


CN6 MBBCCHH R Set from W1LPDR or link field in 
overflow record 






bal 


22 | Read sector | [Read sector 





CN7 Address buffer and offset Set from DCBBUFCEB init. 





"If RPS is present and this channel program is not chained from CP 24, it will be preceded by a set sector and a TIC. The 
set sector and TIC are located in the work area. If the channel program is chained from CP 24, the set sector will be per- 
formed in CP 24. 

**W10SECT if channel program is writing. 


The following is a description of buffer flags at CN2+4 and CN2+5. 
CN2+4 CN2+5 


BIT 9O ; ee ae . . . . Buffer marked for PUTX BIT 9O T. &- @ <3 . . « . End of track 
1 eg . « « . Overflow record ‘ 
2 


—_ 


. . « . Key and data to be read 
0. . . . . Data only to be read “soe 
1 . . . . End of data buffer ae 
1. . .  %Input error 
. .  Unwritable block 
1. Unreachabje block 
Reserved 


a Ooh WwW 
_ 
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Channel Program 22B : Jot 
: f 
Read/Write data records—data only, unblocked records; all blocked records 
Address Count Comments 
a ora Description Hex Description 
a0: oa MT is set off for first CP22 in chain 
CN2+4 used See description of CN2+4 and CN2+5 
as flags for below CP22A 
buffer de- 
Read data Buffer CC (off when DL Fixed length records: the block size 
Write data | address last in chain (DL) is constant so the count field is 
and offset unless CN5 set at open time. 
is used for 
Variable length records: the actual 
block size is set in the count field by 
the EOB routine each time this CP is 
executed. 
N CN 1 Transfer to 1st CCW in next CP22 
ext in chain if not lost in chain or if 
not RPS fe 
If RPS, and record is last in chain and | 
W1RDCNT** not last on track, transfer to RDCNT 
and RDSECTOR for read only. 
CN2+6 at Save sector of record read for PUTX 
MBBCCH Set from W1LPDR or link field in 
overflow record 
Address buffer and offset Set from DCBBUFCB 
*See note to CP22A. 
#*WW1OSECT if channel program is writing. 
if ™ 
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Channel Program 23 - 
Search hi-level indexes, track index, and data track for SETL K or KC 
CCW } Command Code | Flags 
Address Count Comments 
No. [ex] omcrioion pel oe 
est | 31 | search 10 equal Search ID Search 1D equal WiMBECc+3] 40. Tc a Position read head to first index track 


CS1B Search key high |Key address CC, SLI Too far along index 
or equal : 


esic No 

CS1D NOP CS1D+5 CC. SLI Set fe —__ zero if RPS | 
Set sector Yes, position to index point. 

CS1E 1A | Read home 50 CC, SK 5 
adcress 

CS2 Search key high |Key address CC KL 
or equal (MT) 

0 ae ee eee 
Read data CS6+7 CC (off for CC set on when read cylinder index; 

master indexes) * read data of current index entry 


Se Cader 


Set sector 


} 31 | Search ID Search 1D equal. es2 | 40. 


C50 alee fs fst 
Read count of current index entry 


CS10 92 | Read count (MT)/WIWCOUNT 
(normal or overflow) 
CS11 69 |Search key high aceouiceal address oe Key address passed’ in register 0 
ene eq — 


CS$13 Read data 1CS17+7 Read data of current index entry 
(normal or overflow) 

CS14 92 |Read count (MT)}WIWCNXDM| 40 | CC Read count of next index entry 
(normal or overflow) 


*The CC bit in CS4 and CS15 is set off and the channel! program is split if the user has not specified (continued) 
“ADDRSPC=REAL”’. 












Position to home address 








Key address passed in register O 















Address of next lower level index 










Seek track index. See Figure 82 for 
value of P (seek command code). 








iE 






| 5 | Starting CCW when only track index; 
position read head to RO to track index 
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Channel Program 23 (continued) 





Search hi-level indexes, track index, and date track for Sa K or KC 






Comments 
a [Description | 


CS15 Read data W1IWDNXDM| CC, SLI* Read data of next index entry (normal 
or overflow) 


'CS17 
BBCCHHR c Track index entry contains address of 


CS1 | prime data or overflow track containing 
record 


NOP Pe sector to zero if RPS 
ee tgA:| CSI9A+5 che cc, SL ee to start of track if RPS 
CS20 a Search ID equal |CS18+2 Faof cof 8. Search to the first data record on track 


ric fesa2 —_ 
Read count First CN6+3 CC, SLI Read count (CCHHR) of record into 
first CP22: R set to 0 


S22 se Search key equal/Key address CC, SLI (on Search for desired record (29) or search 
Search key high for KC) for desired block (69) 
or equal 
03 | NOP 00 


*The CC bit in CS4 and CS15 is set off and the channe! program is split if the user has not specified ‘“ADDRSPC=REAL”’. 
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Channel Program 24 . 








Read track index entries 


ccw eommand Cede | Flags 
N Address 
fe owen | 


W1iWDCXDM Jao] cc | Read data of current normal index Sy 


a eS 
Read data of next normal or dummy 


CN13 Read data WIWDNXDM 
a 
ents 18 [seach HH CN6+1 pao] cc 6 | Sek to track in W1 [Seek to ackinWiLPOR 


CN14A 03 |NOP CN14A45 CC. SLI Set sector to zero 
23 |Set sector Position to first record next track 
ents | pos TIC ee [Transfer to read or write the record to read or write the record 


“If RPS is present this channel program will be preceded by a set sector TIC located in the work area. 






Comments 










WIWCOUNT — count of current index 
entry; set from WIWCNXDM 






Read data of current overflow index 
entry 












Read count of next normal or dummy 
entry 
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Channel Program 25 . 
















Read track index entries for SETL | 






ead | Cammand Code 


p Flags | 
— [Description | “OO 
ee ae a Te 


CN22 Read. key and CN7+5 CC, SLI 
data 
CN23 i Seek head CN31+1 epee Seek to ere of track index 


ee 
N23A Te NOP CN23At+5 jo CC, SLI | a! 

Set sector 

CN24 Read home CN31 i 
address 

Search key high |CN7+5 

or edu! (MT) 

i ae 

CN27 - | Read data iiaane wl [es Read data of current normal index 

entry 


MBBCCHHR 





Address Comments 







Search to record at actual direct-access 
address 






Read record key. into 1st buffer 






Set sector to zero - 
Position to first record of next track 















Position read head to start of track 











| Serially search index tracks for index 
| entry containing key 









| Read data of current overflow index 
fee 












Read count of next normal or dummy 
entry 










| Read data of next normal or dummy 
entry 





Address of track index; set from lower 
entry with HH=0, R=1 


es 


“If RPS is present this channel program will be preceded by a set sector-TIC located in the work area. 
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Channel Program 26 ; : 










Extension of CP23 to read overflow chains 


CCW | Command Code Code | Flags 
Address Count Comments 
No. [Rox [ overinon | “Mt [hoc] oeroton 
CS27" search ID equal /W1IMBBCC+3 at a ee Search to first record of overflow chain 
cs28 a a oe 


cs29** Search key high |Key address 
or equal 


= [epee fe] 
CS31 NOP Exit when record found if RKP = 0, 
unblocked 


format 
esa =m 60] co, surst CC,  co,sut 10. | Rese link field of overflow record 
esoa_|os |ric_fesae a 


ek dae eae ee a es Address of overflow record 









SL! on when KC, search for desired 
record in chain 












Read in record if. RKP=0O or blocked 



















BBCCHHRF 













Seek overflow track containing next 
record in chain. See Figure 81 for 
value of P (seek command code). 






| 5 | search for overflow record 


sar far | search ID Search 1D equal CS35+2 shat 
= lafe fe fo) 






“If RPS is present this channel program will be preceded by a set sector-TIC located in the work area. 
**Search key equal if RKP=0, RECFM=F and not SETL KH or SETL KDH. 


HH t. 


The CC bit in CS32 is set off and the channe! Program is split if there are any records in the independent overflow area 
and the user has not specified ADDRSPC=REAL. 


Appendix B. ISAM Channel Prograriis 265 














This document contains restricted materials of IBM. © Copyright IBM Corp. 1972, 1982 LY26-3894-0 


Channel Program 31A - 












= ea Code 


Address 
| Description — | Description 


CA4 OE | Read key, Key save CC,SLI KL 
data area 


Channel Program 31B 










Search for the fast normal track index 
r | 












Read last overflow track index count 






Read key of last overflow track index 
entry into key save area 









Reads ane count and data of the last prime data block into the first buffer specified in the Buffer Control Table (resume 
loading ae 


| Command Code Code Flags 
Address Count | Comments 
Aces 
1B | Seek head CB6+1 Seek to the head of the last prime 
data block 


Read count First buffer Read count of the last prime data block 
into the first buffer (buffer control 
table + 9) 











Search for the next to last prime data 
— 






















Seek RO of last 
prime track 


CB5V1* Search ID 
equal 
pind al Read data «| CBT +5 SL 


MBBCCHHR 











Read YYR of track 
Capacity record 








MBBCCHHR of DCBLPDA 
R is set to R-1 


GCC AYO = = 2 





Track capacity record 
for last prime track 


*Vartable length records only 
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Se 
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Channel Program 87 


Reads highest level index into user work area sabeciticd by DCBMSHI)-—this channel program is in module 1GG0192P 


Address Count 


Read key and DCBMSHI Read it into the work area. There are 
data(MT) ~ several copies of CZ3. The channel 


Comments 


Search for first entry of high level index 


program is executed as many times as 
needed to read in the entire index. 
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Channel Program CLOSECCW(1) ° 


Reads format-2 DSCB—this channel program is in module 1|GGQ202D 










DXCCW1/31 | Search ID equal | Format-2 “EC. SLI Search for format-2 DSCB 
DSCB address 


DXDADOR p00 


Channel Program CLOSECCW(2) 










DXCCW3]0E | Read key and 


data 


Read format-2 DSCB into work area 


Writes format-2 DSCB back in the VTOC-—this channel Broanant is in module |GGOQ202D 


| Command Code _| Code Flags 
Address Count Comments 
ee 


Search !D equal | Format-2 CC, SLI 
DSCB address 


Search for format-2 DSCB position 


Search to format-2 DSCB again 


DX 31 Search 1D equal |Format-2 
ccw4"* DSCB address 
TIC 
ne 
| Read key and 
ee data 


*Write-validity-check 





DX Write key and Write format-2 DSCB back in VTOC 
CCW3 data 


ar eee” Code | Flags 
Address [Description - | et Comments 
| Description | | Description — | 


= 
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Channel Program VXCCW (1A) ; 





Reads to EOF or end of LPDA track for prime data—this channel program is in module 1GGO1920 


| Command Code _| Code | Command Code | | Flags 
Address Count Comments 
[ex] oneon pee 
VX 31 Search ID equal JDS2LPRADt3; 40 
CCW1 
NX TIC VXCCW1 
CCW2 









Search to the last prime data record 




















eae TIC VXCCW3A Skip first read count 
VX g?_~—sC|: Read count, Read count field (normally, count of 
CCW3 (MT) EOF) 


Read data WA* Read in block 


















Read count, Executed when DS2LPRAD is incorrect 
(MT) 
Read data WA* 2 CC,SLI DL | Read in block 
VX TIC VXCCW3 
CCW5 
VX CCHHR,R KL DL DL Count field 


CCHHR KL DL DL Count field 





*The work area is obtained by aGETMAIN. 
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{ Channel Program VXCCW(1B) 













Reads to EOF for independent overflow or end of LPDA track for prime data —this channel program is in 


modules 1|GG01922 and 1GG01950 | . 
Comments 


; Command Code 
Search to the last overflow record 











aa Address 


ex | 
VX 31 |Search iD equal jDS2LOVAD+3) 40 CC : 5 
CCW1 | : 
VX TIC VXCCW1 
CCW2 
X CC, SLI 
V 


V VXCCWE6 
CCW3 | 
x VXCCW7 CC, SLI 
CCW4 and data (MT) j 
cc - FEY 
VX CCHHR KL DL DL | Count field 
CCW6 


CCW5 
VX CCHHR KL DL DL 
CCW7 


















Read count field (should be count of 
EOF) 


Read count, key, 
and data (MT) 








Read count, key, Executed when DS2LOVAD is incorrect 









Count field 





Ne eee Channel Program VXCCW(2) 


| Reads to end of track - this channel program is in module {GG01920 
—- Address Count Comments 
VX 12 | Read count SAVEREG CC, SLI Read count of each record on track 
CCW4 : 
VX TIC VXCCW4 |, 00 
| CCWS 















CP will end with count of last record on 
track in SAVEREG 


ote ap pn ally net 





ve eee te nor 
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BISAM processing 83-84 
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load mode 29 
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QISAM 
load mode processing use 45 
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processing 84-94 
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creation 47 
format 200,204-208 
duplicate records 
error indications 194-195 
processing 8494 
dynamic buffering routine, BISAM 
control block 169-170 
description 73-75,67 Sees 
flow diagrams 74 
initialization 65 
pointers to 97 
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load mode open executors 109-115 
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scan mode processing routines 123-136 


force close entry 27 
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format 51 
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FREEDBUF macro instruction 70,169 
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full track index write 
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GET appendage routine, scan mode 
description 58 
module 60 
pointers to 62 

GET macro instruction $1 

GET routine, scan mode 
description 52-54 
flowchart 123-124 
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I 


inactive index entries 207,208 
index, detailed description 202-208 
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index location table, load mode 
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initialization 32 
pointersto 45 
input/output block (IOB) 
BISAM 
pointers to 96 
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queues 96,184 
codes 191-193 
format 167-168 
QISAM ; 
load mode 45,171 
scan mode 62,168 
integrity feature, DCB 


(see data control block integrity feature) 


IOB 
(see input/output block) 

ISAM data set description 197-208 
(see also data set organization) 


K 


key save area, load mode 45 

keys, data management 19 

keys 8-15, storage protection 195-196 
key, user’s storage protection 19 

key 0, storage protection 27 

key 5, storage protection 19,24 
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link pack 
load mode, QISAM 27 
channel programs 42 
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processing phase 36-43 
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in common open executors 24,27 
in scan mode close executors 63 
local lock 68,69 
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M 


M=0 DEB extent 45,164 
macro instructions 
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master index 
BISAM processing 83,84 
direct access extents 162,176 
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QISAM load mode processing 3031 
MBBCCHHRFP 203 
module directory 149-151 
move mode processing 36-38 


N 


N/2 buffers 52 

new high key records 
BISAM 84,88 
QISAM load mode 23 


nonprivileged macro-time routine, BISAM 


description 70 

flow diagram 71,76 

modules 77 

pointers to 97 
normal track index entry 

description 200 

format 202-204 


O 


open phase executors and modules 
BISAM 64-66 
common 21-24 
QISAM 
load mode 27-28 
scan mode 45-47 
organization, data set 
(see data set organization) 
overflow records and chains 
BISAM processing 82,83 
description 200 
format 206 
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QISAM, scan mode processing 48-63 
~ - overflow track index entry 

description 200 

format 204-205 


P 


padding records 46-47 
PF-bit 173 - 
phase ' 
(see open, close, or processing) 
pointer diagrams 
BISAM 95-97 
QISAM 
load mode 45 
scan mode 62 
prime data area 
adding records to 201 
pointers to 43 
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description 68-70 
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scan mode 48-60 
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PUT macro instruction 36 
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PUTX macro instruction 49 
exception codes set 194 
PUTX queue, scan mode 
flow diagram references 55,58 
format 50,62 
use in processing 49-54 
PUTX routine, scan mode 
= description 57 
flowchart 125 
pointers to 62 


Q 


QISAM modes 
(see load mode or scan mode) 
queues 
BISAM 96 
QISAM 
load mode 45 
scan mode 50-51,62 
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read appendages 
(see appendages, BISAM) 
READ macro instruction 63 
exception codes set 195 
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use in processing 63-73 
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RELSE macro instruction 49 
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description 57 
flowchart 125 
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resume loading 33-34 
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devices 17 
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save area, BISAM asychronous and privileged routines 189 
scan mode 
channel programs 59-61 
close phase 62-63 
control blocks and work areas 61,62 
DCB work area _ 179-183 
flowcharts 123-139 
open phase 
operations 47 
Organization 47-48 
processing phase 
operations 48-59 
organization 59-61 
queues 50-52,62 
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description 56 
flowchart 129 
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scheduling of BISAM 
channel programs 69 
SETL macro instruction 49 
exception codes set 194 2 
SETL routine, scan mode 
description 52 
flowchart 53,126-127 
pointers to 62 
shared datasets 24 
shared track 
channel programs used 42 
fields used 
BCB 173 
DCB 156 
DCB work area (load) 176 
DSCB 162 
index format 204,206 
initialization 24 
processing 42 
stages of open and close executors 15-18 
status indicators 
buffers, load mode (IOBBCT) 171-173 
DCB 156 
DSCB 163 
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scan mode 179-181 
storage protection 
keys 8-15 195-196 
keyQ 27 
key 5 
common close 27 
common open 19,24 
protected DCB 195-196 
SYNAD macro instruction 75,77 
SYNADAF macro instruction 7 
synchronous error routine 
address (DCBSYNAD) 154 
BISAM use 75,77 
QISAM 
load mode use 36 
scan mode use 52-59,62 


T 


task close entry 27 
task close/force close routine 26 
T-bit 172 
TISA (see track index save area) 
track index 

BISAM processing 82-94 

description 206 

format 203-205 . 

QISAM 

load mode processing 43-44 

track index save area, QISAM (TISA) 184-187 
track, shared 

(see shared track) 
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unit control block (UCB), pointers to 45,62 
unreachable block error 195 
unscheduled queue, BISAM 
format 96 
pointers to 96,183-184 
use in processing 
privileged macro-time routines 69 
nonprivileged macro-time routines 71 
appendage and asynchronous routines 72 
IOB indicator 167 : 
update processing, BISAM 82,85 
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format 96 
pointersto 96 
use in processing 69 
user queue, scan mode 
flowchart references 55 
format 51,182 
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WAIT macro instruction, BISAM 63 
write appendages 
(see appendage routine, BISAM) 
WRITE K processing 65,82 
channel programs 79 
flow of control 83,94 
differing methods of adding records to a data 
set 78 
WRITE macro instructions 63 
exception codes set 195 
Write queue, scan mode 
flowchart references 
in Get routine 54 
in EOB routine 55 
in Scheduling routine 56 
in ESETL routine 58 
format 50-51,182 
use in processing 50-52 
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